为何我的Excel宏会在任意单元格变更时触发运行？

核心问题原因 #

1. 代码结构不完整：原代码第一个If ActiveSheet.Name = "Sheet1" Then没有对应的End If，导致这层判断完全失效，后续的A1/A2判断会在任意工作表的任意单元格变更时执行。
2. 工作表判断逻辑错误：用ActiveSheet.Name判断不准确，因为ActiveSheet是当前显示的工作表，而非实际发生变更的工作表，应该用事件参数Sh（触发变更的工作表）来判断。
3. Target范围判断不严谨：直接对比Target.Address仅能匹配单个单元格精确变更，无法处理批量粘贴等多单元格操作的场景，同时原逻辑没有排除其他单元格的触发。

修正后的完整代码 #

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 仅在Sheet1发生单元格变更时执行后续逻辑
    If Sh.Name = "Sheet1" Then
        ' 检查变更区域是否包含A1或A2（支持单/多单元格操作）
        If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
            ' 调用筛选宏
            Call AutoFilter
            ' 返回主工作表（若主表不是Sheet1，替换为对应表名即可）
            Sheet1.Activate
        End If
    End If
End Sub

修改说明 #

• 补全了外层If的End If，修复了"End if without a Block If"语法错误，让工作表判断逻辑生效。
• 改用Sh.Name判断变更发生的工作表，确保只有Sheet1的变更才会触发后续判断。
• 用Intersect函数判断变更区域与A1:A2是否重叠，只要变更涉及A1或A2就会触发筛选，覆盖单个单元格编辑、批量粘贴等场景。
• 增加Sheet1.Activate实现"返回主工作表"的需求，可根据实际主表名称调整。

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