vba怎么做多条件筛选

在VBA中，可以使用多种方法进行多条件筛选。以下是其中的一种方法：

1. 使用AutoFilter方法进行筛选。

   Sub MultiConditionFilter()
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("Sheet1") '更改为你的工作表名称
       
       With ws
           '第一个条件
           .Range("A1").AutoFilter Field:=1, Criteria1:="条件1"
           '第二个条件
           .Range("A1").AutoFilter Field:=2, Criteria1:="条件2"
           '...
           '根据需要，继续添加条件
       End With
   End Sub
   

   上述代码中，使用AutoFilter方法对工作表的某一列进行筛选，并设置条件值。可以通过修改Field参数来指定筛选的列，通过修改Criteria1参数来设置筛选条件的值。

2. 使用AdvancedFilter方法进行筛选。

   Sub MultiConditionFilter()
       Dim ws As Worksheet
       Dim rngCriteria As Range
       Dim rngData As Range
       Dim rngResult As Range
       
       Set ws = ThisWorkbook.Sheets("Sheet1") '更改为你的工作表名称
       Set rngData = ws.Range("A1:B10") '更改为你的数据范围
       Set rngCriteria = ws.Range("D1:F2") '更改为你的条件范围
       Set rngResult = ws.Range("H1") '更改为你的结果范围
       
       With ws
           .Range("H1").Value = "条件1"
           .Range("I1").Value = "条件2"
           '...
           '根据需要，继续添加条件标题
           
           .Range("H2").Formula = "=D2" '更改为你的条件单元格引用
           .Range("I2").Formula = "=E2" '更改为你的条件单元格引用
           '...
           '根据需要，继续添加条件单元格引用
           
           .Range("H1:I2").Copy
           .Range("H1:I2").PasteSpecial Paste:=xlPasteValues
           
           .Range("H1:I2").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rngCriteria
           
           rngData.SpecialCells(xlCellTypeVisible).Copy rngResult
           ws.ShowAllData
       End With
   End Sub
   

   上述代码中，使用AdvancedFilter方法对工作表的数据进行筛选，并将结果粘贴到指定的范围中。可以通过修改rngData参数来指定数据的范围，通过修改rngCriteria参数来指定条件范围，通过修改rngResult参数来指定结果范围。需要在条件范围中提前设置条件。

这只是多条件筛选的一种实现方式，根据具体需求，你还可以使用其他方法进行多条件筛选。