VBA写入SUMIF公式无法自动计算，手动重算仍显示0问题求助

问题根因 #

• SUMIF涉及的求和列/条件列的数据为文本型数值：你从其他文件粘贴过来的原始数据中，参与计算的数值字段实际存储格式为文本，Excel自动计算时不会主动对文本做隐式数值转换，因此公式计算结果为0。双击单元格时会触发Excel的单元格内容重校验，自动将可转换的文本转为数值，公式即可正常运算。
• 插入列时继承了错误格式：你多次执行插入列操作，CopyOrigin:=xlFormatFromLeftOrAbove参数可能继承了相邻单元格的文本格式，导致写入的公式被识别为文本内容而非可计算的表达式。
• 计算触发时序问题：你在代码开头未显式声明初始计算模式，部分Excel环境默认开启手动计算，就算后续设置为xlCalculationAutomatic，也不会主动对文本型数值做转换后重算。

修复方案 #

1. 粘贴数据后强制转换数值列格式 #

在粘贴数据、将工作表重命名为Data的代码后，对所有需要参与数值计算的列执行格式转换，示例代码如下：

' 示例针对SUMIF用到的求和列、条件列处理，可根据实际列号调整范围
With Columns("M:M") ' 对应你代码中SUMIF的求和列C[13]，即相对A列偏移13列的M列
    .NumberFormat = "General" ' 先设置单元格格式为常规
    .Value = .Value ' 强制将文本型数值转为纯数值
End With
With Columns("B:B") ' 对应你代码中SUMIF的条件列C[1]，即相对A列偏移1列的B列
    .NumberFormat = "General"
    .Value = .Value
End With

2. 所有公式写入完成后显式触发全表重算 #

在代码末尾添加强制重算指令，确保所有公式都被正确执行：

' 强制重建所有公式依赖并全量计算工作簿
Application.CalculateFullRebuild

3. 优化公式写入逻辑（可选） #

你代码中多次使用Select+AutoFill的写法效率低，且容易触发格式异常，可直接对目标区域批量写入公式，示例如下：

' 原写法
Range("A2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]="""","""",LEFT(RC[28],2))"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A" & LastRow)

' 优化后写法
Range("A2:A" & LastRow).FormulaR1C1 = "=IF(RC[2]="""","""",LEFT(RC[28],2))"

额外注意：你代码末尾的SUMIF公式引用了名为Summary的工作表，如果你新建的工作簿中不存在该工作表，也会导致公式计算异常，需确认该工作表的引用路径正确。

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