Question

我在尝试计算VBA中的常见excel公式时遇到运行时错误。以下是代码中似乎存在问题的部分：

   With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
   .Range("F4").Formula = "=IF(AND(C5=0;D5=0;E5=0);B5;IF(AND(C5=0;OR(D5<>0;E5<>0));B5;0))"
   .Range("F4").Copy
    With .Range("F5:F" & LastRow)
            .PasteSpecial Paste:=8
            .PasteSpecial Paste:=xlPasteFormulas
            .PasteSpecial Paste:=xlPasteFormats
    End With
End With

我认为使用正确的VBA语法编写公式时出现了一些错误，因为如果我只用“= 2 + 2”替换它就可以了。

Answer 1

将Semicolon替换为Comma

"=IF(AND(C5=0,D5=0,E5=0),B5,IF(AND(C5=0,OR(D5<>0,E5<>0)),B5,0))"

尝试使用公式计算时获取运行时错误1004

1 个答案: