一个可以使用多个筛选条件的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”运算符来表示这两个条件都必须满足。