Excel VBA跨工作表求和报1004错误的正确实现方案咨询

原有代码报错原因 #

• R1C1公式写法问题：ActiveCell.FormulaR1C1 = "=SUM('Sheet2'!C[-1]:C[-1])" 依赖当前激活单元格的相对位置，C[-1]代表当前选中单元格向左偏移1列，一旦激活单元格位置变化（比如不在Sheet1、不在D列附近）就会出现引用越界触发1004错误；且该写法本身没有匹配「从C2开始向下求和」的需求，之前能正常运行属于位置巧合。
• 函数求和写法问题：Sheets("Sheet2").Range("C2:C") 是非法的VBA范围语法，VBA不支持省略结束行号的半开区间写法，因此会直接运行失败。

两种合规实现方案 #

方案1：写入动态公式（推荐，数据更新自动重算） #

该方案和手动在单元格写求和公式效果一致，后续Sheet2的C列数据变动时，E4的结果会自动更新：

' 显式指定操作对象，不依赖Active/Select这类易出错的状态
ThisWorkbook.Worksheets("Sheet1").Range("E4").Formula = "=SUM(Sheet2!C2:C1048576)"

说明：1048576是Excel 2007及后续版本单工作表的最大行号，该引用范围刚好覆盖C2到C列最后一行的所有单元格，不会统计C1单元格的数值。

方案2：写入静态计算值 #

如果不需要保留公式，仅需要写入固定的求和结果，使用该方案：

Dim calResult As Double
With ThisWorkbook.Worksheets("Sheet2")
    ' 动态定位C列最后一个有值的单元格，避免空值影响
    Dim lastRow As Long
    lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
    calResult = Application.WorksheetFunction.Sum(.Range("C2:C" & lastRow))
End With
ThisWorkbook.Worksheets("Sheet1").Range("E4").Value = calResult

编码注意事项 #

• 所有单元格操作必须显式指定所属工作表，禁止直接使用Range、Cells、ActiveCell这类默认绑定当前激活工作表的写法，避免因工作表切换触发报错或计算错误。
• VBA中引用单元格范围必须明确起止坐标，不支持C2:C这类省略边界的写法。

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