加法自动过滤 - 解决方法

Question

我正在尝试使用 vba 代码过滤 excel 文件中的列，但问题是我无法保存第一个过滤器并添加另一个过滤器（不同的 IF 条件）。如何保存第一个过滤器并在同一列中添加第二个过滤器？

非常感谢！

Private Sub Search_Click()

    If InStr(TextBox1.Text, "TEST_1") Then
        With ActiveSheet.Range("A$1")
        .AutoFilter Field:=1, Criteria1:="A"
        .AutoFilter Field:=2, Criteria1:=Array("B", "C", _
                                    "D", "E"), _
                    Operator:=xlFilterValues
        End With

        If InStr(TextBox1.Text, "TEST_2") Then
            ActiveSheet.Range("A$1").AutoFilter Field:=2, Criteria1:="F"
        End If

    End If

End Sub

Answer 1

首先检查所有条件将允许您构建所需的数组，然后将其用作过滤器。