將主工作表中的過濾器應用於多個工作表

Question

我正在嘗試將主工作表中的過濾器應用於同一工作簿中的多個工作表。

例如。

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

1. 國家

國家代碼，國家名稱

1. 銷售量

國家代碼、銷售額

1. 存貨

CountryCode, InvAmount

當我按 FRA、JPN 和 USA 過濾 Country 表時，我希望 Sales 和 Inventory 表將自動遵循相同的過濾條件，並且僅顯示 FRA、JPN 和 USA 行。

它似乎並不太復雜，但我一直在嘗試使用 AdvancedFilter 方法在 VBA 中編碼，幾天沒有運氣！

非常感謝您的幫助！

Answer 1

我想你想要這樣的東西，在我放置xx每個工作表中插入你想要過濾的范圍。 將i, ii and iii替換為 FRA、JPN 和美國的國家代碼。

請注意，這是對國家代碼而不是國家名稱進行過濾，因為它是公共字段。

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