如何清除 Excel 目前工作簿中所有工作表的篩選？

作者Siluvia修改日期2025-09-02

當您在處理包含多個工作表的 Excel 活頁簿時，通常會在不同工作表上套用篩選，以更有效地分析資料。然而，一旦在多個工作表上套用篩選後，您可能需要一次性移除所有篩選，讓工作表恢復至原始未篩選的狀態。若手動逐一切換至每個工作表並分別清除篩選，不僅耗時費力，還容易遺漏某些工作表。

這類需求常見於您收到同事提供的活頁簿，或需整合多個團隊的資料時——在開始進行分析或準備分享報告前，務必確保所有篩選條件皆已清除。尤其當活頁簿包含數十個工作表時，逐一手動處理不僅耗時費力，還容易遺漏。因此，若能透過快速可靠的方式，一次性清除目前工作簿中所有工作表的篩選，將大幅節省寶貴時間與精力，同時避免任何已篩選資料被忽略。

以下將為您介紹一種實用方法，只需幾個簡單步驟即可輕鬆完成此任務。若需進階技巧或替代方案（例如運用公式或 Excel 增益集），請參閱本文末尾的其他解決方案。

使用 VBA 程式碼從當前工作簿的所有工作表中清除篩選

使用 VBA 程式碼從當前工作簿的所有工作表中清除篩選

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

若想高效地從目前工作簿的每個工作表中移除所有篩選，您可以使用 VBA 腳本。此方法特別適合熟悉在 Excel 中執行巨集的使用者，尤其適用於包含多種結構化資料的工作活頁簿。

開始前，請務必先儲存您的工作，因為執行 VBA 會對活頁簿進行大量變更。

1. 在欲清除篩選的活頁簿中，同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。若您首次使用 Excel，請先從選項功能表中啟用「開發人員」索引標籤，以確保順利操作！

2. 在開啟的 Microsoft Visual Basic for Applications 視窗中，依序點選插入＞模組以建立新模組，接著將下列 VBA 腳本複製並貼上至模組視窗中。請參閱下方截圖作為參考：

VBA 程式碼：從當前工作簿的所有工作表中清除篩選

Sub Clear_fiter()
'Updated by Extendoffice 20250902
    Dim xAF As AutoFilter
    Dim xFs As Filters
    Dim xLos As ListObjects
    Dim xLo As ListObject
    Dim xRg As Range
    Dim xWs As Worksheet
    Dim xIntC, xF1, xF2, xCount As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each xWs In Application.Worksheets
        xWs.ShowAllData
        Set xLos = xWs.ListObjects
        xCount = xLos.Count
        For xF1 = 1 To xCount
         Set xLo = xLos.Item(xF1)
         Set xRg = xLo.Range
         xIntC = xRg.Columns.Count
         For xF2 = 1 To xIntC
            xLo.Range.AutoFilter Field:=xF2
         Next
        Next
    Next
    Application.ScreenUpdating = True
End Sub

將程式碼複製並貼上到模組中

3. 按下 F5 鍵，或點選執行按鈕以執行程式碼。執行後，您當前工作簿中所有工作表的篩選（無論是標準範圍篩選或表格型篩選）將立即被清除。

執行巨集前，請務必先儲存活頁簿，因為 VBA 所執行的操作無法透過 Ctrl+Z 復原。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多