如何在 Excel 中顯示或呈現自動篩選的條件？

作者Xiaoyang修改日期2024-10-22

自動篩選是 Excel 使用者非常實用的功能，有時我們會套用自動篩選，根據多個條件篩選資料後再將檔案傳送給他人。在此情況下，若其他使用者想知道您所使用的篩選條件，該如何操作？

使用自訂函數在工作表中顯示／展示自動篩選條件

使用 VBA 程式碼在工作表中顯示／展示自動篩選條件

使用 Kutools for Excel 在工作表中顯示／展示自動篩選條件

使用自訂函數在工作表中顯示／展示自動篩選條件

假設您有以下已根據某些條件篩選過的資料，請參閱截圖：

在 Excel 中套用自動篩選後的篩選資料截圖

現在我可以建立一個自訂函數，將篩選條件顯示在儲存格中，請依照下列步驟操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列巨集貼到模組視窗中：

Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = .Criteria1
        If .Operator = xlAnd Then
            str2 = " AND " & .Criteria2
        ElseIf .Operator = xlOr Then
            str2 = " OR " & .Criteria2
        End If
    End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function

3. 接著保存並關閉此程式碼，在空白工作表的空白儲存格（例如 A1 儲存格）中輸入下列公式 =AutoFilter_Criteria(A4)（A4 為篩選資料的標題儲存格），請參閱截圖：

在 Excel 中輸入 AutoFilter_Criteria 公式的截圖

4. 接著按下 Enter 鍵，選取 A1 儲存格，並將填滿控點拖曳至欲套用此公式的右側儲存格，所有篩選條件便會立即顯示於儲存格中，請參閱截圖：

在 Excel 中顯示自動篩選條件的截圖

注意：若某欄位包含兩個以上篩選條件，此自訂函數將無法正確顯示結果。

使用 VBA 程式碼在工作表中顯示／展示自動篩選條件

此外，我也要為您介紹一段實用又有趣的 VBA 程式碼，能將篩選條件直接顯示在活頁簿的儲存格中，讓您一目了然！

1. 按住 ALT + F11 鍵以開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入> 模組，並將下列巨集貼到模組視窗中：

VBA 程式碼：在工作表中顯示自動篩選條件

Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
    Application.StatusBar = False
    Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
   TargetField = xFilter.Range.Cells(1, i).Value
   Set TargetFilter = xFilter.Filters(i)
   If TargetFilter.On Then
        On Error GoTo OutNext
        xOut = xOut & TargetField & TargetFilter.Criteria1
        Select Case TargetFilter.Operator
            Case xlAnd
            xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
            Case xlOr
            xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
            Case xlBottom10Items
            xOut = xOut & " (bottom 10 items)"
            Case xlBottom10Percent
            xOut = xOut & " (bottom 10%)"
            Case xlTop10Items
            xOut = xOut & " (top 10 items)"
            Case xlTop10Percent
            xOut = xOut & " (top 10%)"
        End Select
    End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub

3. 接著按下 F5 鍵執行此程式碼，系統將彈出提示方塊，讓您選擇一個空白儲存格來放置篩選條件，請參閱截圖：

VBA 提示選取空白儲存格以輸入篩選條件的截圖

4. 然後點選確定，所有篩選條件便會以下列方式顯示於所選儲存格中：

自動篩選條件顯示於儲存格中的截圖

注意：

使用此 VBA 程式碼時，若某一欄位的篩選條件超過兩個，將不會顯示詳細的篩選條件，而是以下列方式呈現：

Excel 中顯示具有多個篩選條件之欄位的截圖

使用 Kutools for Excel 在工作表中顯示／展示自動篩選條件

若您已安裝 Kutools for Excel，即可運用其超級篩選功能輕鬆篩選資料，並隨時掌握篩選條件！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 點選 KUTOOLS PLUS 中的超級篩選，即可啟用超級篩選功能。請參閱截圖：
Excel 中 Kutools「超級篩選」選項的截圖

2. 在超級篩選窗格中，點選您要篩選的數據區域，然後勾選「指定」核取方塊以固定篩選範圍。請參閱截圖：to select the 數據區域 you want to filter then check Specified checkbox to fix the 篩選範圍。 See screenshot：
在「超級篩選」窗格中選取資料範圍的截圖

3. 在超級篩選窗格中，先點選篩選群組中的任一行，再依需求於下拉列表中設定篩選條件，最後按一下「確定」即可完成設定。請參閱截圖：
在「超級篩選」窗格中指定篩選條件的截圖

4. 點選篩選後，資料將依條件自動篩選，同時您可在超級篩選窗格中即時檢視目前套用的篩選條件。請參閱截圖：
篩選後的資料及其在「超級篩選」窗格中可見條件的截圖

注意：您可透過超級篩選工具將篩選條件儲存為情境，日後隨時取用。

1. 點選保存當前方案按鈕後，在彈出的對話方塊中輸入篩選名稱。
在 Kutools 中儲存篩選條件情境的截圖

2. 日後若要使用此篩選設定，請點選功能表按鈕，然後在載入一個現存的方案的子功能表中選擇該情境。
在 Kutools 中開啟已儲存篩選條件情境的截圖

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

示範：使用 Kutools for Excel 篩選時顯示篩選條件

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

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