如何在 Excel 中對多個工作表應用相同的篩選條件？

對我們來說，在工作表中使用篩選功能來篩選數據可能很容易，但有時您可能需要跨多個具有相同數據格式的工作表進行篩選。如果逐一手動篩選將會浪費大量時間，這裡我將介紹一種簡單的方法一次性解決這個問題。

使用 VBA 代碼對多個工作表應用相同的篩選條件

使用 VBA 代碼對多個工作表應用相同的篩選條件

例如，我有四個工作表，如下圖所示，需要根據相同的篩選條件（產品 = KTE）一次性進行篩選。

在 Excel 中沒有直接的方法可以對多個工作表中的數據進行篩選，但以下的 VBA 代碼可以幫助您完成此任務，請按照以下步驟操作：

1. 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下代碼粘貼到模組視窗中。

VBA 代碼：對多個工作表應用相同的篩選條件：

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. 然後按下 F5 鍵運行此代碼，所有 KTE 的產品都會立即在所有工作表中被篩選出來，請參見截圖：

注意：在上述代碼中，xWs.Range("A1").AutoFilter 1, "=KTE" 腳本中，A1 和 =KTE 表示要篩選的列和條件，數字 1 是篩選所基於的列號，您可以根據需要更改它們。例如，如果您想篩選訂單大於 50 的數據，只需將該腳本修改為：xWs.Range("B1").AutoFilter 2, ">50"。