Excel VBA如何合并同一工作表的多个Worksheet_Change变更事件

同一个工作表仅允许存在一个Worksheet_Change事件过程，将三个监听逻辑整合后的可直接使用代码如下：

合并后完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 变更区域不在监听范围内则直接退出
    If Intersect(Target, Range("D3:D100, H3:H100, I3:I100")) Is Nothing Then Exit Sub
    
    Dim rng As Range
    ' 关闭事件触发，避免修改单元格时循环触发事件
    Application.EnableEvents = False
    
    ' 遍历本次所有变更的单元格，兼容批量修改场景
    For Each rng In Target
        Dim curRow As Integer
        curRow = rng.Row
        ' 仅处理3-100行范围内的变更
        If curRow >= 3 And curRow <= 100 Then
            ' D列变更逻辑
            If Not Intersect(rng, Range("D3:D100")) Is Nothing Then
                If Range("D" & curRow).Value = "Remote" Then
                    Range("O" & curRow).Value = "N/A"
                    Range("P" & curRow).Value = "N/A"
                    Range("Q" & curRow).Value = "N/A"
                End If
            End If
            
            ' H列变更逻辑
            If Not Intersect(rng, Range("H3:H100")) Is Nothing Then
                If Range("H" & curRow).Value = 1 Then
                    Range("I" & curRow).Value = "N/A"
                End If
            End If
            
            ' I列变更逻辑
            If Not Intersect(rng, Range("I3:I100")) Is Nothing Then
                If Range("I" & curRow).Value = 1 Then
                    Range("H" & curRow).Value = "N/A"
                End If
            End If
        End If
    Next rng
    
    ' 恢复事件触发开关
    Application.EnableEvents = True
End Sub

使用说明 #

• 打开对应工作表的VBA编辑界面，删除原有三个重复的Worksheet_Change过程
• 将上述代码粘贴到工作表代码窗口，保存即可生效

优化说明 #

• 新增事件开关避免修改单元格时触发死循环
• 仅处理本次变更对应的行，无需全量遍历3-100行，运行效率更高
• 兼容批量粘贴修改的场景，不会漏处理多行同时变更的情况
• 三个监听区域逻辑完全独立，互不干扰

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