<fieldset id="cuw6u"></fieldset>

如何在Excel中顯示/顯示自動篩選條件？

網友投稿 486 2025-03-31

如何在Excel中顯示/顯示自動篩選條件？

自動篩選功能對Excel用戶來說是一項有用的功能，有時，我們會應用自動篩選功能以多種條件篩選數據并將文件發送給其他人。在這種情況下，如果其他用戶想知道您的過濾條件，他們怎么辦？

使用用戶定義的功能在工作表中顯示/顯示自動篩選條件

使用VBA代碼在工作表中顯示/顯示自動篩選條件

在工作表中顯示/顯示自動過濾條件 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

Copy

3. 然后保存并關閉此代碼，在空白行的空白單元格（例如單元格A1）中，輸入以下公式 = AutoFilter_Criteria（A4） (A4 是已過濾數據的標題單元格），請參見屏幕截圖：

4。然后按輸入鍵，然后選擇單元格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

Copy

3。然后按 F5 要運行此代碼的關鍵，將彈出一個提示框，讓您選擇一個空白單元格放置條件，請參見屏幕截圖：

4。然后點擊 OK，所有條件已顯示在所選單元格中，如下所示：

請注意：

使用此VBA代碼，如果您的標準在一列中超過兩個，則不會顯示詳細的過濾條件，而是顯示如下：

在工作表中顯示/顯示自動過濾條件 Kutools for Excel

如果你有 Kutools for Excel 安裝后，可以應用它 超級濾鏡 過濾數據的功能，同時您可以隨時查看過濾條件。

Kutools for Excel, 與超過 300 方便的功能，使您的工作更加輕松。