如何在Excel中顯示/顯示自動篩選條件？
自動篩選功能對Excel用戶來說是一項有用的功能，有時，我們會應用自動篩選功能以多種條件篩選數據並將文件發送給其他人。 在這種情況下，如果其他用戶想知道您的過濾條件，他們怎麼辦？
使用Kutools for Excel在工作表中顯示/顯示自動過濾條件 
使用用戶定義的功能在工作表中顯示/顯示自動過濾條件
假設您已按照某些條件過濾了以下數據，請參見屏幕截圖：
現在，我可以創建一個用戶定義函數，以將過濾條件顯示到單元格中，請執行以下步驟：
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序窗口.
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 是已過濾數據的標題單元格），請參見屏幕截圖：
4。 然後按 Enter 鍵，然後選擇單元格A1，將填充手柄拖到您需要包含此公式的右側單元格中，並且所有條件都已顯示在這些單元格中，請參見屏幕截圖：
備註：如果一列中有兩個以上標準，則此用戶定義函數將無法給出正確的結果。
使用VBA代碼在工作表中顯示/顯示自動篩選條件
在這裡，我還可以討論一個有趣的VBA代碼，它可以幫助您在工作簿的單元格中顯示過濾條件。
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序窗口.
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 要運行此代碼的關鍵，將彈出一個提示框，讓您選擇一個空白單元格放置條件，請參見屏幕截圖：
4。 然後點擊 OK，所有條件已顯示在所選單元格中，如下所示：
備註：
使用此VBA代碼，如果您的標准在一列中超過兩個，則不會顯示詳細的過濾條件，而是顯示如下：
使用Kutools for Excel在工作表中顯示/顯示自動過濾條件
如果你有 Excel的Kutools 安裝後，可以應用它 超級濾鏡 過濾數據的功能，同時您可以隨時查看過濾條件。
| Excel的Kutools, 與以上 300 方便的功能，使您的工作更加輕鬆。 |
後 免費安裝 Kutools for Excel，請執行以下操作：
1。 點擊 Kutools 加 > 超級濾鏡 顯示 超級濾鏡 功能。 看截圖：
2。 在裡面 超級濾鏡 窗格中單擊 
選擇要過濾的數據范圍，然後選中“指定”複選框以固定過濾範圍。 看截圖：
3。 在裡面 超級濾鏡 窗格中，單擊過濾器組中的一行，然後根據需要在下拉列表中指定過濾條件，然後單擊“確定”以完成條件設置。 看截圖：
4。 點擊 篩選，並且所選數據已按條件過濾，與此同時，您可以查看過濾條件顯示在 超級濾鏡 窗格。 看截圖：
注意：您可以將過濾器條件另存為方案，以備下次使用“超級過濾器”實用程序使用。
1.點擊 保存當前的過濾器設置 按鈕，在彈出的對話框中，輸入過濾器名稱。
2.下次要使用此文件管理器設置時，請單擊菜單按鈕，然後在以下菜單的子菜單中選擇方案： 打開保存的過濾器設置方案.
過濾時顯示過濾標準
最佳辦公效率工具
Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%
- 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
- 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
- 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
- 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
- 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
- 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
- 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
- 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
- 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆
- 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
