VBA Excel公式，错误1004

Question

我试图在插入行后在单元格中输入公式。 而且VBA不想这样做并返回错误。

我首先从excel工作表中复制了公式（使用“;”作为分隔符），并且正如我在其他线程上所看到的那样，我将这些公式替换为“，”。

我不明白为什么会收到错误消息。

Sub Borderx()
Dim nboc As Integer
Dim ipaste As Integer


nboc = Worksheets("BDD").Range("IQ2").Value


For ipaste = 1 To nboc - 1
    Worksheets("Bordereaux").Range("B14").EntireRow.Insert
    Worksheets("Bordereaux").Range("T14").Formula = "=IF(AND(J14="",E14=""),SUM(F14*F14*H14)/1000,IF(O14="",SUM((H14*F14*G14)+(M14*K14*L14))/1000,SUM((H14*F14*G14)+(M14*K14*L14)+(R14*P14*Q14))/1000))"

    Next ipaste          
End Sub

在这种情况下，nboc = 2，这应该插入一行。 在添加“ if”语句之前，当它只是sum（）时，它可以正常工作

Answer 1

像这样更改它：

Worksheets("Bordereaux").Range("T14").Formula = " =IF(AND(J14="""",E14=""""),SUM(F14*F14*H14)/1000,IF(O14="""",SUM((H14*F14*G14)+(M14*K14*L14))/1000,SUM((H14*F14*G14)+(M14*K14*L14)+(R14*P14*Q14))/1000))"