将主工作表中的filter应用于多个工作表

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

例如。

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

1. 国家

CountryCode，CountryName

1. 销售

CountryCode，SalesAmount

1. 库存

CountryCode，InvAmount

当我通过FRA，JPN和USA过滤国家/地区表时，我希望销售和库存表格将自动遵循相同的过滤条件，并且只显示FRA，JPN和USA行。

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

非常感谢您的帮助！

Answer 1

你想这样的事情，我想，插入你想过滤的范围，我已经把每个工作表中的xx 。 将i, ii and iiireplace为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