绝对可以简化！你这段代码的核心逻辑完全重复——都是“把Sheet1变更单元格的值加到Sheet2对应位置，再清空原单元格”，只是针对不同单元格写了重复的判断和操作。咱们把重复逻辑抽出来，用更高效、易维护的方式实现：

简化后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim watchRange As Range
    Dim cell As Range
    
    ' 定义需要监控的单元格范围：A1到C2
    Set watchRange = Me.Range("A1:C2")
    
    Application.EnableEvents = False
    On Error GoTo Cleanup ' 确保出错时也能恢复事件触发
    
    ' 只处理落在监控范围内的变更单元格
    For Each cell In Intersect(Target, watchRange)
        ' 累加值到Sheet2对应位置，空单元格默认按0处理
        Worksheets("Sheet2").Range(cell.Address) = Worksheets("Sheet2").Range(cell.Address).Value + cell.Value
        ' 清空当前变更的单元格
        cell.ClearContents
    Next cell

Cleanup:
    Application.EnableEvents = True
    ' 如果有错误，弹出提示
    If Err.Number <> 0 Then MsgBox "操作出错：" & Err.Description
End Sub

简化思路和优势 #

• 统一监控范围：用watchRange一次性定义需要监控的单元格区域（A1:C2），后续要调整监控范围（比如新增D1:D2），只需要修改这一行代码，不用再写一堆If判断。
• 批量处理单元格：用Intersect判断变更的单元格是否在监控范围内，再通过循环处理单个或多个单元格的变更（比如用户一次性粘贴多个单元格的情况，原代码无法处理）。
• 错误防护：增加了错误处理分支Cleanup，确保即使出现异常（比如输入非数值内容），也能恢复Application.EnableEvents，避免后续的工作表变更事件失效。
• 减少冗余：把重复的累加、清空逻辑统一到循环里，代码量直接减少一半以上，可读性和维护性大幅提升。

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