Excel VBA AutoFilter 多字段筛选

在excel VBA 里使用autofilter方法进行筛选时，具体使用语法如下。

语法：

expression.AutoFilter (Field, Criteria1, Operator, Criteria2, SubField, VisibleDropDown)

Field: 筛选字段位于筛选范围的位置（第几行或列）；

Criteria1:筛选条件；

Operator：指定筛选器类型的 XlAutoFilterOperator 常量，通常对筛选的结果设置要求，如 Operator:=xlFilterValues表示筛选目标字段的数值；

Criteria2：第二筛选字段，与 Criteria1 和 Operator 一起组合成复合筛选条件；

SubField：这个是针对新增的特殊数据类型（股票和地理）有效，一个单元格里的数据可包含多项数据，365和web版限定参数，一般不用。

VisibleDropDown：如果为 True，则显示已筛选字段的 AutoFilter 下拉箭头，false则隐藏。

注意，以上参数都是可选参数。

下面给出两个实例：
Case 1.筛选指定区域里的参数结果：

'选择啤酒字段的所有值
Worksheets("Data").range("A2:C10000").Autofilter _

(2,"啤酒"，xlFilterValues）  

上述代码含义是在名为“Data”的工作表中“A2”到“C10000”范围内的第2列筛选出“啤酒”字段的值；
一般情况下其余参数可省略。

通常情况下，上述代码会写成这样：

'选择啤酒字段的所有值
Worksheets("Data").range("A2:C10000").Autofilter _

(Field：=2,Criteria1：="啤酒"，Operator：=xlFilterValues）  

这段代码含义和上一段代码含义和作用一样，那为什么要写得更复杂呢？这是因为如果你写参数时严格按照Autofilter的顺序来表达每个参数，可以写成第一段代码形式，但是实际工作中大家不会需要所有字段，书写顺序也不一定严格按照Autofilter的顺序来写，为避免参数设定错误，将参数具体对应设定比较安全，同时代码可读性也更好。

Case2.筛选动态区域里的参数结果：

'选择啤酒字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _

(Field：=2,Criteria1：="啤酒"，Operator：=xlFilterValues）  

这段代码和Case 1最大不同就是筛选范围是动态的，即A列和C列包含数据的区域，需要注意的是，range(“A1”,[C1].end(xldown))来表示活动区域时，如果运行的工作表不止一个，需要写成range(“A1”,sheets(“Data”).[C1].end(xldown)).

当有Criteria2时，与Criteria1 类似，在Autofilter里加进去即可，就可以用2个条件进行复合筛选；

'选择啤酒,面包字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _

(Field：=2,Criteria1：="啤酒"，Operator：=xlOr，Criteria2：="面包"） 

但是，上述代码最多只能进行啤酒”，“面包”两个字段“的筛选，如果想进行3个及以上字段的筛选呢？这个时候，可以采用一维数组Array来解决这个问题；

'选择啤酒,面包,香肠字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _

(Field：=2,Criteria1：=Array("啤酒"，"面包"，"香肠"),Operator：=xlFilterValues）  

当筛选的字段总数为多个（>=5）时，而需要进行筛选的字段也为多个时，除了用数组，可以也采用反向筛选的方法；

'选择除了猪排以外的字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _

(Field：=2,Criteria1：="<>猪排",Operator：=xlFilterValues）

假定所有字段分别为“啤酒”，“面包”，“香肠”，“牛排”，“蛋糕”，“猪排”，需要筛选除“猪排”外所有字段，与此类似，如果反选有“猪排”和“蛋糕”两个字段，Criteria2参数加上即可，如下述。

'选择除了猪排,蛋糕以外的字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _

(Field：=2,Criteria1：="<>猪排",Operator：=xlOr，Criteria2：="<>蛋糕"）  

综上所述，结合正向筛选和反向筛选字段的方法可以将VBA Autofilter用得比较灵活，基本可以解决所有的筛选问题；

但是，有人可能会好奇，既然正向筛选可以进行3个及以上字段的筛选，那么反向筛选是否可以实现呢？

首先，需要明确的是，Autofilter的方法没有3个及以上的Criteria，因此无法用CriteriaX的方法实现；其次，前面采用一维数组实现多个字段正向筛选，那么反向筛选可以么？

例如↓

'选择除了啤酒,面包,香肠以外的字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _

(Field：=2,Criteria1：=Array("<>啤酒"，"<>面包"，"<>香肠"),Operator：=xlFilterValues） 

理想很丰满，现实很骨感。一维数组无法实现3个及以上字段的反向删选。

查了一些资料，结合自己的想法，认为可以通过一下两种方法实现：

1>.数组+循环；

Sub FilterDemo()

    Dim rng As Range
    
    Dim Arr_Filter as variant,Arr_New as variant
    
    Dim n as integer
    
    Set rng = Sheets("Data").Range("A:C") '筛3列,A-C列;
    
    Arr_Filter=array("啤酒","面包","香肠","蛋糕","猪排")
    
    n=0
    
    for each ar in Arr_Filter
    
		if ar<>"啤酒" and ar<>"面包" and ar<>"香肠" then
		
			Arr_New(n)=ar
			
			n=n+1
			
		end if 
		
	next
	
   '筛选条件2列不等于啤酒和不等于面包和不等于香肠
    rng.AutoFilter field:=2, Criteria1:=Arr_New,Operator：=xlFilterValues)
    
End Sub

一维数组+循环的方法实质上是先进行字段的筛选，然后利用Autofilter方法进行多字段正向筛选，组合使用可以实现3个及以上字段的反向删选。

2>.使用SQL.

Sub RangeFilterDemo();
	'SQL方法还不太熟悉
End Sub

而对于SQL，是利用数据库的筛选来替代Autofilter的筛选，后续熟悉后再进行补充。

总结
在Excel VBA 中使用Autofilter方法时，可以进行一个及多个字段的正向筛选，结合数组可以进行一个及多个字段的反向筛选，灵活使用筛选可以提高我们的代码效率和工作效率。

参考资料：
ExcelHOME论坛
Office VBA Autofilter 参考