VBA写入SUM公式后单元格显示#NAME?，如何自动使其生效？

我之前也碰到过一模一样的坑！这种写入公式后显示#NAME?但手动回车就正常计算的情况，本质是Excel没有自动触发公式的解析或计算，下面给你几个优先级从高到低的解决办法：

• 强制触发单个单元格/工作表计算
  写完公式后，直接加一行代码强制刷新目标单元格，这是最直接的办法：

  Cells(intRow, 2 + j).Formula = "=SUM(C" & intRow & ":" & colName & intRow & ")"
  ' 强制刷新该单元格
  Cells(intRow, 2 + j).Calculate
  

  如果需要刷新整个工作表，也可以用ActiveSheet.Calculate，适合批量写入公式的场景。

• 检查并设置自动计算模式
  有时候问题根源是Excel处于手动计算模式，写入公式后不会自动计算。可以在VBA里临时切换到自动计算，写完公式再恢复原设置（避免影响用户的Excel偏好）：

  ' 保存当前的计算模式
  Dim originalCalcMode As XlCalculation
  originalCalcMode = Application.Calculation
  
  ' 切换为自动计算
  Application.Calculation = xlCalculationAutomatic
  
  ' 写入你的求和公式
  Cells(intRow, 2 + j).Formula = "=SUM(C" & intRow & ":" & colName & intRow & ")"
  
  ' 恢复原来的计算模式（可选，如果你需要保持用户的原有设置）
  Application.Calculation = originalCalcMode
  

• 尝试用FormulaLocal替代Formula
  虽然SUM函数在中英文Excel里都是通用的，但偶尔Excel对FormulaLocal（适配本地语言的公式属性）的解析会更及时。可以替换试试：

  Cells(intRow, 2 + j).FormulaLocal = "=SUM(C" & intRow & ":" & colName & intRow & ")"
  

• 模拟手动回车（极端兜底方案）
  如果上面的方法都无效，可以模拟用户选中单元格后回车的动作，完全还原手动操作的逻辑：

  With Cells(intRow, 2 + j)
      .Formula = "=SUM(C" & intRow & ":" & colName & intRow & ")"
      .Select
      SendKeys "{ENTER}"
  End With
  

  注意：SendKeys会受窗口焦点影响，如果你的VBA运行时Excel不是当前激活窗口，可能会失效，所以尽量优先用前面的方法。

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