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

Question

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

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

但它输入了一个错误的Excel工作表。

Answer 1

您没有正确构建公式。

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

这与以下行相同：

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

这是你想要做的。

此外，您希望在formala的开头有=。

Answer 2

我会这样做：

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

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