如何使用 VBA 在单元格中输入公式？

【问题标题】：How to enter a formula into a cell using VBA?如何使用 VBA 在单元格中输入公式？
【发布时间】：2013-09-19 09:24:43
【问题描述】：

我正在尝试将公式输入到包含名为 var1a 的变量的单元格中？我的代码是：

    Worksheets("EmployeeCosts").Range("B" & var1a).Formula = ""SUM(H5:H""& var1a)

但进入excel工作表时出错。

【问题讨论】：

【解决方案1】：

您没有正确构建公式。

Worksheets("EmployeeCosts").Range("B" & var1a).Formula =  "=SUM(H5:H" & var1a & ")"

这与以下几行相同：

Dim myFormula As String
myFormula = "=SUM(H5:H"
myFormula = myFormula & var1a
myformula = myformula & ")"

这就是你想要做的。

另外，您希望在正式的开头有=。

【讨论】：

【解决方案2】：

我会这样做：

Worksheets("EmployeeCosts").Range("B" & var1a).Formula = _
Replace("=SUM(H5:H{SOME_VAR})","{SOME_VAR}",var1a)

如果你有一些更复杂的公式，它会很方便

【讨论】：