使用VBA插入Excel自动求和公式结果显示为零的问题咨询

问题根因 #

• 公式赋值属性错误：VBA中给单元格写入可执行公式需要使用.Formula属性，你当前使用.Value属性赋值时，Excel会将内容识别为普通文本而非公式，不会触发计算逻辑，因此返回0。手动输入公式时Excel会自动识别公式格式，所以可以正常运行。
• 求和范围逻辑错误：你定义的lastrow是J列最后一个非空单元格的下一行，也就是最终放置求和公式的行，原有代码的求和范围包含了公式所在的空单元格，本身也会导致计算范围偏差。

修正后代码 #

Dim lastrow As Long
' 定位J列最后一个非空单元格的下一行作为公式放置位置
lastrow = ActiveSheet.Cells(Rows.Count, "J").End(xlUp).Row + 1
' 使用Formula属性写入公式，求和范围为J2到放置公式行的上一行
ActiveSheet.Cells(lastrow, "J").Formula = "=Sum(J2:J" & lastrow - 1 & ")"

补充排查项 #

如果调整后仍存在计算异常，可以提前将J列数值区域设置为常规格式，避免文本型数字无法参与计算：

ActiveSheet.Range("J2:J" & lastrow - 1).NumberFormat = "General"

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