Additive -解决方法

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

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