如何在Excel中显示/显示自动筛选条件？

网友投稿 285 2023-12-25

如何在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 要运行此代码的关键，将弹出一个提示框，让您选择一个空白单元格放置条件，请参见屏幕截图：