ActiveCell.Formula=变量不工作

Question

我正在尝试用公式填充活动单元格。所需公式的一个例子是=SUMIF(K30:K40，DescVar，E30:E40(，其中DescVal是字符串变量。

以下是给我带来问题的代码片段：

If Selection.Value <> DescVar Then
Selection.Offset(1, -6).Select
Dim CalcRow As Integer, FromRow As Integer, ToRow As Integer
CalcRow = ActiveCell.Row
FromRow = CalcRow + 1
ToRow = FromRow + 10
Dim SumFormula As String
SumFormula = "='SUMIF(K" & FromRow & ":K" & ToRow & "," & DescVar & ",E" & FromRow & ":E" & ToRow & ")"
ActiveCell.Formula = SumFormula
End If

有什么想法吗？

Answer 1

由于最终结果需要类似于=SUMIF(K1:K10,"foo",E1:E10)，因此需要在DescVar周围添加引号，并且它们需要加倍：

SumFormula = "=SUMIF(K" & FromRow & ":K" & ToRow & ",""" & DescVar & """,E" & FromRow & ":E" & ToRow & ")"