VBA宏仅在首个工作表生效，其余工作表无响应问题排查

问题原因 #

原代码直接对非活动工作表执行AutoFilter操作时，Excel的筛选机制无法正确响应，导致仅初始活动的工作表生效；同时未处理已有筛选状态，可能引发逻辑冲突。

修正后的代码 #

Sub SGAFilterShow()
    Dim b As Worksheet
    For Each b In ThisWorkbook.Worksheets
        b.Activate ' 激活目标工作表，确保操作生效
        ' 清除已有筛选（避免状态冲突）
        If b.AutoFilterMode Then b.AutoFilterMode = False
        ' 展开列分组
        b.Outline.ShowLevels ColumnLevels:=2
        ' 应用指定筛选
        b.Range("A5:AL110").AutoFilter Field:=1, Criteria1:="Show"
        ' 折叠列分组
        b.Outline.ShowLevels ColumnLevels:=1
    Next b
End Sub

关键调整说明 #

• 替换Worksheets为ThisWorkbook.Worksheets，明确操作当前工作簿的工作表，避免误操作其他打开的工作簿。
• 增加b.Activate激活每个工作表，确保筛选和分组操作能正确作用于目标表。
• 添加筛选清除逻辑，避免原有筛选状态干扰新规则的应用。

额外注意事项 #

• 确认所有目标工作表都存在A5:AL110区域，否则会触发运行时错误。
• 确保各工作表的列分组层级包含2级，否则ShowLevels ColumnLevels:=2不会产生预期效果。

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