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

在VBA中，要实现自动筛选的可变多条件，可以使用AutoFilter方法。以下是一个示例代码，展示了如何根据用户输入的条件数量动态地应用筛选：

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

在这个示例中，我们首先设置工作表和数据范围。然后，我们要求用户输入要应用的条件数量，并根据这个数量动态分配一个数组来存储条件。接下来，我们循环获取每个条件，并将其添加到数组中。最后，我们使用AutoFilter方法应用筛选，其中Field:=1表示我们将在第一列应用筛选，Criteria1:=criteria表示我们将使用一个数组作为条件，Operator:=xlAnd表示所有条件都必须满足（逻辑与）。

请注意，这个示例假设所有条件都是针对同一列的，并且用户输入的条件格式为“列号=值”。如果你需要更复杂的条件逻辑，你可能需要调整代码以适应不同的需求。