使用多个筛选条件筛选 Excel 数据的 VB 代码示例

以下是一个可以使用多个筛选条件的 VB 代码示例：

Sub FilterData()
    Dim ws As Worksheet
    Set ws = ActiveWorkbook.Worksheets('Sheet1') '将工作表“Sheet1”分配给变量“ws”
    
    '定义筛选条件
    Dim filter1 As Variant
    filter1 = 'Criteria1' '第一个筛选条件
    Dim filter2 As Variant
    filter2 = 'Criteria2' '第二个筛选条件
    
    '将筛选条件应用于数据
    ws.Range('A1:E100').AutoFilter Field:=1, Criteria1:=filter1, Operator:=xlAnd, Criteria2:=filter2
    
End Sub

说明：

• 在代码中，我们首先将工作表“Sheet1”分配给变量“ws”。
• 接着，我们定义了两个筛选条件“filter1”和“filter2”。
• 最后，我们使用“AutoFilter”方法将这两个筛选条件应用于数据。在本例中，我们在第 1 列上应用了两个筛选条件，并且使用了“xlAnd”运算符来表示这两个条件都必须满足。