如何使用VBA将公式添加到单元格[重复]

我正在尝试编写一些 VBA，它将标题文本添加到 3 个单元格，然后将公式一直填充到最后一行。我已经写了下面的内容，其中写入标题没有问题，但是当它到达我的第一个时.Formula它抛出一个

应用程序定义或对象定义错误

需要更改什么才能使该宏成功执行？ （这些公式是直接从单元格中的公式中提取的，所以我知道它们至少在“前端”是有效的公式）

Function Gre()
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "Under"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "Over"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "Result"

    With Range("E2:E" & Cells(Rows.Count, "C").End(xlUp).Row)
        .Formula = "=IF(C2<B2,B2-C2,"")"
    End With
    With Range("F2:F" & Cells(Rows.Count, "C").End(xlUp).Row)
        .Formula = "=IF(C2>B2,C2-B2,0)"
    End With
    With Range("G2:G" & Cells(Rows.Count, "C").End(xlUp).Row)
        .Formula = "=IF(F2>0,'Issue',"")"
    End With
End Function

问题可能是您使用公式转义了引号。

你需要的是：

.Formula = "=IF(C2>B2,B2-C2,"""")"

例如，对于第一个。其他报价也需要加倍。

作为旁注，最好指定您正在处理的工作表，例如：

 Dim ws as worksheet
 Set ws = Sheets("mySheet")
 ws.Range("E2").FormulaR1C1 = "Under"

etc.

如果不这样做，运行代码时有时会发生错误。