如何实现单元格求和并累加历史计算结果？

要达成你需要的累加式求和效果（保留历史结果、修改/新增E/F值时自动累加，删除E/F内容不影响D列），普通Excel公式无法实现，必须借助VBA工作表事件来完成，具体步骤如下：

1. 打开VBA编辑器 #

右键点击目标工作表标签（如Sheet1），选择「查看代码」，打开VBA编辑器窗口。

2. 粘贴事件代码 #

在编辑器的代码窗口中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim rowNum As Integer
    Dim currentSum As Double
    
    ' 仅响应E列和F列的单元格变动
    Set rng = Intersect(Target, Me.Range("E:F"))
    If rng Is Nothing Then Exit Sub
    
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    
    ' 获取变动单元格所在行号
    rowNum = rng.Row
    
    ' 计算当前行E、F的总和（空单元格按0处理）
    currentSum = Val(Me.Cells(rowNum, "E").Value) + Val(Me.Cells(rowNum, "F").Value)
    
    ' 仅当E/F有值时累加，避免删除操作误加0
    If Me.Cells(rowNum, "E").Value <> "" Or Me.Cells(rowNum, "F").Value <> "" Then
        Me.Cells(rowNum, "D").Value = Me.Cells(rowNum, "D").Value + currentSum
    End If
    
    ' 重新启用事件
    Application.EnableEvents = True
End Sub

3. 代码逻辑说明 #

• 仅在E/F列单元格发生修改或新增时触发，无多余计算；
• 空单元格自动按0处理，确保求和计算正常；
• 删除E/F列内容时，因E/F均为空，不会执行累加操作，D列原有结果完全保留；
• 首次输入E/F值时，直接将求和结果存入D列；修改值时，自动把当前E/F的求和值加到D列现有结果上，完全匹配你给出的示例（原D列10，修改后E+F=13，D列变为10+13=23）。

额外说明 #

• 保存文件时需选择「Excel 启用宏的工作簿（.xlsm）」格式，否则宏代码会丢失；
• 若要初始化已有数据的D列（把现有E/F的求和值存入D列），可在VBA编辑器的模块中粘贴以下代码并运行：

Sub InitializeDColumn()
    Dim lastRow As Integer
    Dim i As Integer
    
    lastRow = Me.Cells(Me.Rows.Count, "E").End(xlUp).Row
    
    For i = 1 To lastRow
        Me.Cells(i, "D").Value = Val(Me.Cells(i, "E").Value) + Val(Me.Cells(i, "F").Value)
    Next i
End Sub

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