Question

使用VBA将以下公式添加到单元格失败，我无法解决原因：

"=IF($02,(IF(NOT($N2),$P1+1,1)),0)"

我可以将线路改为其他任何东西，例如“= A2 / B2”，它运行正常。

完整代码：

Sub FillDown() 

Dim strFormulas(1 To 2) As Variant 

With ThisWorkbook.Sheets("Sheet1") 
    LRow = .Range("A99999").End(xlUp).Row
    strFormulas(1) = "=IF($02,(IF(NOT($N2),$P1+1,1)),0)" 
    strFormulas(2) = "=A2/B2" 
   .Range("L2:T2").Formula = strFormulas
   .Range("L2:T" & LRow).FillDown 
End With 

End Sub

Answer 1

使用此：

 strFormulas(1) = "=IF($O2,(IF(NOT($N2),$P1+1,1)),0)"

而不是：

 strFormulas(1) = "=IF($02,(IF(NOT($N2),$P1+1,1)),0)"

使用“= IF时运行时错误'1004'

1 个答案: