如何在Excel中实现动态递增单元格引用，自动记录求和结果至新单元格？

要实现Sheet1的A1/B1数值变更时，自动将新求和结果存入Sheet2的下一个空单元格，核心是利用Worksheet_Change事件宏监控单元格变化并执行写入操作，具体步骤如下：

操作步骤 #

1. 打开VBA编辑器：按下Alt+F11组合键，或者右键点击Sheet1的标签，选择「查看代码」。
2. 粘贴事件代码：在Sheet1对应的代码窗口中，输入以下VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监控A1和B1单元格的变更
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        Application.EnableEvents = False ' 关闭事件触发，避免循环调用
        Dim sumResult As Double
        Dim nextRow As Long
        
        ' 计算A1到B1的求和结果
        sumResult = Application.Sum(Me.Range("A1:B1"))
        
        ' 定位Sheet2中C列最后一个非空单元格的下一行
        nextRow = Sheet2.Cells(Sheet2.Rows.Count, "C").End(xlUp).Row + 1
        
        ' 将结果写入目标单元格
        Sheet2.Cells(nextRow, "C").Value = sumResult
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

关键说明 #

• 宏启用要求：保存文件时需选择「Excel启用宏的工作簿（.xlsm）」格式，否则代码无法生效。
• 事件触发逻辑：代码仅在Sheet1的A1或B1发生变更时执行，避免不必要的资源消耗。
• 防循环处理：加入Application.EnableEvents开关，防止写入操作再次触发Change事件导致循环。

验证方式：修改Sheet1的A1或B1数值，Sheet2的C列会自动在最后一行新增最新的求和结果。

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