多工作表按列名筛选宏问题：Location列跨表筛选仅单表生效

我看了你的代码，问题其实出在没有明确指定Range所属的工作表上！你在With Worksheets(q)块里用的Range("A1")和Range("A1:AZ1")，默认会指向当前活动工作表，而不是循环到的第q个工作表。这就导致循环看似跑了所有表，但实际只在活动表上执行了筛选，其他表根本没碰对目标区域。

给你修正后的代码，我还加了错误处理和更严谨的逻辑，避免找不到"Location"列时代码报错：

Sub AllSheetsAutofilter()
    Dim p As Integer, q As Integer
    p = Worksheets.Count
    Dim i As Integer, rngData As Range
    
    For q = 1 To p
        With Worksheets(q)
            ' 先取消当前表已有的筛选（如果存在）
            If .AutoFilterMode Then .AutoFilterMode = False
            
            ' 明确绑定当前工作表的Range，一定要加.前缀！
            On Error Resume Next ' 临时开启错误捕获，处理找不到"Location"的情况
            i = Application.WorksheetFunction.Match("Location", .Range("A1:AZ1"), 0)
            On Error GoTo 0 ' 关闭错误捕获
            
            If i > 0 Then ' 确认找到目标列后再执行筛选
                ' 用CurrentRegion自动识别整个数据区域，比固定A1更灵活
                Set rngData = .Range("A1").CurrentRegion
                rngData.AutoFilter Field:=i, Criteria1:=Array("ABM", "AC8", "AKH", "ACH", "AC4"), Operator:=xlFilterValues
            End If
        End With
    Next q
End Sub

关键修改说明： #

• 所有Range前面加上.（比如.Range("A1:AZ1")），强制绑定到With Worksheets(q)指定的当前工作表，而不是默认的活动表
• 增加了筛选重置逻辑，避免旧筛选状态干扰新的筛选操作
• 用CurrentRegion代替单独的Range("A1")，能自动覆盖整张数据表格，适配不同表的数据范围
• 加入错误处理，当某张表没有"Location"列时，代码会跳过该表继续执行，不会直接崩溃

这样修改后，循环就能正确遍历每个工作表，找到对应的Location列并执行筛选了。

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