在VBA中实现自动筛选的可变多条件

Sub AutoFilterMultipleConditions()
    Dim ws As Worksheet
    Dim rngData As Range
    Dim criteria() As Variant
    Dim numOfCriteria As Integer

    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rngData = ws.Range("A1:D" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)

    ' 获取用户输入的条件数量
    numOfCriteria = InputBox("请输入要应用的条件数量：", "条件数量")

    ' 根据条件数量分配存储条件的数组空间
    ReDim criteria(1 To numOfCriteria)

    ' 循环获取每个条件，并将其添加到数组中
    For i = 1 To numOfCriteria
        criteria(i) = InputBox("请输入第 " & i & " 个条件（列号=值）：", "条件 " & i)
    Next i

    ' 应用筛选
    rngData.AutoFilter Field:=1, Criteria1:=criteria, Operator:=xlAnd
End Sub