使用VBA代码实现excel多个条件筛选

　　按ALT+F11，打开VBE编辑器，插入——模块，然后复制粘贴下面的代码，按F5键运行。

Sub 多个条件筛选()
Range("A2:C65536").ClearContents
   Sheets("表一").Range("A1:G16").AdvancedFilter Action:=xlFilterCopy,_
       CriteriaRange:=Range("E1:F3"), CopyToRange:=Range("表二!A1:C1"),Unique:= _
       False
End Sub

　　思路提示：可以将方法一介绍的高级筛选录制宏操作一遍，然后再适当修改代码得到。

　　其中：Sheets("表一").Range("A1:G16")：表示查找的范围。
　　　　　CriteriaRange:=Range("E1:F3")：表示查询条件，包括字段名称。
　　　　　CopyToRange:=Range("表二!A1:C1")：表示结果的保存范围，包括字段名称。