将主工作表中的过滤器应用于多个工作表

Question

我正在尝试将主工作表中的过滤器应用于同一工作簿中的多个工作表。

例如。

工作簿中有 3 个工作表，每个工作表上有以下字段：

1. 国家

国家代码，国家名称

1. 销售

国家代码、销售额

1. 库存

国家代码，InvAmount

当我按 FRA、JPN 和 USA 筛选 Country 表时，我希望 Sales 和 Inventory 表将自动遵循相同的筛选条件，并且仅显示 FRA、JPN 和 USA 行。

这似乎并不太复杂，但我一直在尝试使用 AdvancedFilter 方法在 VBA 中编码，这几天没有运气！

非常感谢您的帮助！

Answer 1

我想你想要这样的东西，在我放置xx 的每个工作表中插入你想要过滤的范围。将 i, ii and iii 替换为 FRA、JPN 和 USA 的国家代码。

请注意，这是过滤国家代码而不是国家名称，因为它是通用字段。

Option Explicit
Sub Apply_Filter()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    With ws
        .Range("xx").AutoFilter Field:=1, Criteria1:=Array("i", _
        "ii", "iii"), Operator:=xlFilterValues
    End With
Next

End Sub