咨询如何基于If Target.Address实现Excel多单元格累计求和功能

嘿，这个多单元格累计求和的需求很好解决！我帮你把原来的单单元格代码扩展一下，不仅支持多个指定单元格，还能兼容连续范围或不连续的单元格组合，逻辑也更健壮。

完整修改后的代码 #

Option Explicit
Dim oldvalue As Double ' 存储选中单元格的旧值

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' 跳过批量修改的情况，只处理单个单元格
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 定义需要实现累计求和的目标单元格范围
    ' 可以是单个单元格、多个不连续单元格、连续范围，按需修改
    Dim targetRng As Range
    Set targetRng = Me.Range("J5,K6,J7:J10")
    
    ' 判断当前修改的单元格是否在目标范围内
    If Not Intersect(Target, targetRng) Is Nothing Then
        On Error GoTo ErrorHandler
        Application.EnableEvents = False ' 关闭事件触发，避免循环执行
        
        ' 处理输入逻辑：空值重置为0，数值则累加旧值
        If Target.Value = "" Then
            Target.Value = 0
        ElseIf IsNumeric(Target.Value) Then
            Target.Value = oldvalue + Target.Value
        End If
    
ErrorHandler:
        Application.EnableEvents = True ' 无论是否出错，都恢复事件触发
        If Err.Number <> 0 Then
            MsgBox "操作出错：" & Err.Description, vbExclamation
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 选中单元格时，记录目标范围内单元格的当前值（作为后续累加的旧值）
    If Target.Cells.Count > 1 Then Exit Sub
    
    Dim targetRng As Range
    Set targetRng = Me.Range("J5,K6,J7:J10")
    
    If Not Intersect(Target, targetRng) Is Nothing Then
        ' 空单元格默认旧值为0，避免累加出错
        oldvalue = IIf(Target.Value = "", 0, Target.Value)
    End If
End Sub

关键修改点说明 #

• 多单元格范围判断：用Intersect(Target, targetRng)替代原来的单地址判断，这样你可以灵活定义目标范围——比如连续的J5:J20，或者不连续的J5,L5,N5，都能完美适配，比写一堆Or判断简洁太多。
• 批量操作防护：增加If Target.Cells.Count > 1 Then Exit Sub，避免用户批量粘贴或修改多个单元格时触发错误。
• 旧值记录逻辑：在Worksheet_SelectionChange事件里，只有选中目标范围内的单个单元格时，才会更新oldvalue，保证每个目标单元格的累加都是基于自己的历史值。
• 错误处理：完善了错误捕获和事件恢复，哪怕输入非数值内容，也会弹出提示并恢复Excel的事件触发功能，不会导致后续操作失效。

自定义使用方法 #

只需要修改两处Set targetRng = Me.Range("J5,K6,J7:J10")，把括号里的地址改成你需要的单元格范围即可：

• 单个连续范围：Me.Range("J5:J15")
• 多个不连续单元格：Me.Range("J5,L7,N9")
• 混合范围：Me.Range("J5:J10,L7,N9")

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