如何用VBA实现Excel列E与对应F列单元格的批量累加求和？

你可以通过以下方式实现E列所有单元格的累加功能，无需为每个单元格编写单独子程序：

优化后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changedCell As Range
    ' 仅处理E列内的单元格修改
    For Each changedCell In Intersect(Target, Me.Range("E:E"))
        ' 确保是单个单元格且输入为数值
        If changedCell.Cells.Count = 1 And IsNumeric(changedCell.Value) Then
            Application.EnableEvents = False
            Update_Sum changedCell
            Application.EnableEvents = True
        End If
    Next changedCell
End Sub

Sub Update_Sum(targetCell As Range)
    Dim fCell As Range
    Set fCell = targetCell.Offset(0, 1) ' 获取E单元格右侧的F单元格
    
    ' 若F单元格为空，默认按0处理
    If IsEmpty(fCell.Value) Then
        fCell.Value = 0
    End If
    
    ' 执行累加操作
    fCell.Value = CLng(targetCell.Value) + CLng(fCell.Value)
End Sub

核心优化点 #

• 动态匹配单元格：使用Intersect(Target, Me.Range("E:E"))检测修改是否发生在E列，替代硬编码单个单元格地址的方式。
• 通用累加子程序：Update_Sum通过targetCell.Offset(0,1)自动获取对应行的F单元格，适配E列任意行的需求。
• 避免无限循环：修改F单元格前关闭事件触发Application.EnableEvents = False，操作完成后重新开启，防止触发重复的Worksheet_Change事件。
• 容错处理：增加IsNumeric检查确保输入为数值，同时处理F单元格为空的情况，避免运行错误。

功能说明 #

• 当在E列任意单元格输入数值时，对应行的F单元格会自动将新输入值与自身原有值累加。
• 支持单个单元格修改，也兼容批量修改E列多个单元格的场景。

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