VBA中ActiveCell.Formula赋值变量不生效，SUMIF公式拼接异常求助

• 公式开头多余的前导单引号：你拼接SumFormula时开头写了='SUMIF，单引号会让Excel将整段内容判定为纯文本，不会作为公式解析执行，直接导致赋值不生效。
• 字符串条件参数缺少双引号包裹：SUMIF的第二个参数如果是文本值，Excel公式语法要求必须用双引号围起来。你直接拼接字符串变量DescVar，生成的公式中条件值没有双引号，会被Excel识别为未定义的名称，触发语法错误。

If Selection.Value <> DescVar Then
    ' 直接引用目标单元格，避免使用Select，稳定性更高
    Dim TargetCell As Range
    Set TargetCell = Selection.Offset(1, -6)
    
    Dim CalcRow As Integer, FromRow As Integer, ToRow As Integer
    CalcRow = TargetCell.Row
    FromRow = CalcRow + 1
    ToRow = FromRow + 10
    
    Dim SumFormula As String
    ' 删掉前导单引号，给DescVar加转义的双引号包裹
    SumFormula = "=SUMIF(K" & FromRow & ":K" & ToRow & ",""" & DescVar & """,E" & FromRow & ":E" & ToRow & ")"
    
    TargetCell.Formula = SumFormula
End If

• 删除了公式开头多余的单引号，确保Excel能正常识别公式
• 拼接DescVar时前后加了两层双引号，VBA中字符串内的双引号需要用两个双引号转义，最终生成的公式里会自动给文本条件加上正确的双引号
• 优化了原代码中使用Select的写法，直接操作目标单元格对象，避免因选中状态变化导致的未知错误

内容的提问来源于stack exchange，提问作者Trevorm517