Excel VBA AutoFilter 多字段筛选_用vba实现任意列包含字符的高级筛选(1)

'选择啤酒字段的所有值
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


### 前端框架

前端框架太多了，真的学不动了，别慌，其实对于前端的三大马车，Angular、React、Vue 只要把其中一种框架学明白，底层原理实现，其他两个学起来不会很吃力，这也取决于你以后就职的公司要求你会哪一个框架了，当然，会的越多越好，但是往往每个人的时间是有限的，对于自学的学生，或者即将面试找工作的人，当然要选择一门框架深挖原理。



以 Vue 为例，我整理了如下的面试题。

![Vue部分截图](https://img-blog.csdnimg.cn/img_convert/c6738a80c94640db83f7ffbf487ac5f0.png)

**[开源分享：【大厂前端面试题解析+核心总结学习笔记+真实项目实战+最新讲解视频】](https://bbs.csdn.net/topics/618166371)**