Excel VBA代码修改求助：实现单元格输入值累加而非替换

你的需求完全可行，以下是原代码问题点及修正后的版本：

原代码存在的问题 #

• 逻辑混淆：cell.Value是你刚输入的新值，cell.OldValue是单元格原有值，原代码的累加逻辑虽数值结果一致，但变量定义模糊易引发误解；同时未处理单元格原本为空的场景，空单元格输入数字后会无反应。
• 无错误保护：若代码执行中途出错，Application.EnableEvents可能无法恢复，导致后续工作表变更事件失效。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim specifiedRanges As Range
    Dim oldValue As Variant
    Dim inputValue As Variant
    
    ' 定义需要生效的目标单元格区域
    Set specifiedRanges = Me.Range("G2:G1000,H2:H1000,I2:I1000,J2:J1000")
    
    ' 校验修改操作是否在目标区域内
    If Not Intersect(Target, specifiedRanges) Is Nothing Then
        ' 禁用事件触发，避免循环执行
        Application.EnableEvents = False
        
        ' 错误捕获机制，确保事件最终能恢复
        On Error GoTo ErrorHandler
        
        For Each cell In Target
            inputValue = cell.Value
            ' 仅处理数字类型的输入
            If IsNumeric(inputValue) Then
                oldValue = cell.OldValue
                ' 处理原单元格为空的情况
                If IsEmpty(oldValue) Then
                    cell.Value = inputValue
                Else
                    ' 原有值 + 新输入值，实现累加更新
                    cell.Value = oldValue + inputValue
                End If
            End If
        Next cell
        
ErrorHandler:
        ' 无论是否出错，强制恢复事件触发
        Application.EnableEvents = True
        ' 若有错误，弹出提示信息
        If Err.Number <> 0 Then
            MsgBox "操作出错：" & Err.Description, vbExclamation
        End If
    End If
End Sub

代码说明 #

• 明确区分原有值和新输入值，逻辑清晰不易出错
• 适配空单元格场景：空单元格输入数字时直接保留该数值
• 增加错误捕获，避免因意外错误导致后续工作表事件失效
• 仅对数字输入执行累加，非数字输入不会触发变更逻辑

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