多重 If 公式

Question

我怎样才能把这个公式写成代码形式。需要将此公式从 A7 粘贴到最后一个单元格

=IF(LEFT(E8,5)="AEDLA","OP LAB",IF(LEFT(E8,5)="AEDCL","DCL",IF(LEFT(E8,5)= "AECAL","CAL",IF(LEFT(E8,5)="AEDXB","DXB OPS",0))))

任何建议，因为下面的代码行中有错误 rng.Formula = "=IF(LEFT(E8,5)="AEDLA","OP LAB",IF(LEFT(E8,5)="AEDCL","DCL",IF(LEFT(E8,5)="AECAL","CAL",IF(LEFT(E8,5)="AEDXB", "DXB OPS",0))))"

 Sub Dubai()

 Dim lr As Long
 Dim rng As Range


Sheets("00689").Select

Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Select
Selection.Copy
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A7").Select
ActiveCell.FormulaR1C1 = "BU"

     lr = Range("A" & Rows.Count).End(xlUp).Row
     
Set rng = Range("A7:B" & Cells(Rows.Count, "A").End(xlUp).Row)
rng.Formula = "=IF(LEFT(E8,5)="AEDLA","OP LAB",IF(LEFT(E8,5)="AEDCL","DCL",IF(LEFT(E8,5)="AECAL","CAL",IF(LEFT(E8,5)="AEDXB","DXB OPS",0))))"
rng.Value = rng.Formula

End Sub

谢谢，珍妮

Answer 1

您需要 select 引号内的部分，如下图所示，然后使用带有红色标记选项的 Find and Replace 将所有引号替换为一对引号。

结果如下：

Rng.Formula = "=IF(LEFT(E8,5)=""AEDLA"",""OP LAB"",IF(LEFT(E8,5)=""AEDCL"",""DCL"",IF(LEFT(E8,5)=""AECAL"",""CAL"",IF(LEFT(E8,5)=""AEDXB"",""DXB OPS"",0))))"
Rng.Value = Rng.Value

下一行代码也应如上所示进行更新。

多重 If 公式

Multiple If formula

excel

if-statement

formula