如何修改VBA的Worksheet_Change宏，避免插入行时触发AdvancedFilter

修改思路 #

核心是限制事件仅在指定单元格区域变化时触发，同时避免筛选操作引发递归事件：

• 用Intersect判断变化的单元格是否属于你需要触发筛选的指定区域，不在则直接退出子程序
• 启用事件禁用/恢复机制，防止高级筛选操作本身触发Worksheet_Change事件导致递归

修改后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 替换为你实际需要触发筛选的指定单元格区域（如你提到的1,2,3,4对应单元格）
    If Intersect(Target, Range("E6:F7")) Is Nothing Then Exit Sub
    
    On Error GoTo Cleanup
    Application.EnableEvents = False
    
    ' 执行高级筛选
    Range("E10:E80").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E6:F7"), Unique:=False
    
Cleanup:
    Application.EnableEvents = True
End Sub

关键说明 #

1. 指定触发区域：把Range("E6:F7")替换成你需要触发筛选的目标单元格区域（比如你举例的1,2,3,4对应单元格，如Range("A1:D1")），插入行时新生成的0值单元格不在这个区域内，就不会触发筛选。
2. 事件安全控制：On Error GoTo Cleanup确保即使代码执行出错，也能恢复Application.EnableEvents为True，避免后续的单元格变化事件失效。

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