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

为了做好运维面试路上的助攻手，特整理了上百道 【运维技术栈面试题集锦】 ，让你面试不慌心不跳，高薪offer怀里抱！

这次整理的面试题，小到shell、MySQL，大到K8s等云原生技术栈，不仅适合运维新人入行面试需要，还适用于想提升进阶跳槽加薪的运维朋友。

本份面试集锦涵盖了

• 174 道运维工程师面试题
• 128道k8s面试题
• 108道shell脚本面试题
• 200道Linux面试题
• 51道docker面试题
• 35道Jenkis面试题
• 78道MongoDB面试题
• 17道ansible面试题
• 60道dubbo面试题
• 53道kafka面试
• 18道mysql面试题
• 40道nginx面试题
• 77道redis面试题
• 28道zookeeper

总计 1000+ 道面试题， 内容 又全含金量又高

• 174道运维工程师面试题

1、什么是运维?

2、在工作中，运维人员经常需要跟运营人员打交道，请问运营人员是做什么工作的?

3、现在给你三百台服务器，你怎么对他们进行管理?

4、简述raid0 raid1raid5二种工作模式的工作原理及特点

5、LVS、Nginx、HAproxy有什么区别?工作中你怎么选择?

6、Squid、Varinsh和Nginx有什么区别，工作中你怎么选择?

7、Tomcat和Resin有什么区别，工作中你怎么选择?

8、什么是中间件?什么是jdk?

9、讲述一下Tomcat8005、8009、8080三个端口的含义？

10、什么叫CDN?

11、什么叫网站灰度发布?

12、简述DNS进行域名解析的过程?

13、RabbitMQ是什么东西?

14、讲一下Keepalived的工作原理?

15、讲述一下LVS三种模式的工作过程?

16、mysql的innodb如何定位锁问题，mysql如何减少主从复制延迟?

17、如何重置mysql root密码?

网上学习资料一大堆，但如果学到的知识不成体系，遇到问题时只是浅尝辄止，不再深入研究，那么很难做到真正的技术提升。

需要这份系统化的资料的朋友，可以点击这里获取！

一个人可以走的很快，但一群人才能走的更远！不论你是正从事IT行业的老鸟或是对IT行业感兴趣的新人，都欢迎加入我们的的圈子（技术交流、学习资源、职场吐槽、大厂内推、面试辅导），让我们一起学习成长！

'选择啤酒,面包字段的所有值
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 参考

先自我介绍一下，小编浙江大学毕业，去过华为、字节跳动等大厂，目前在阿里

深知大多数程序员，想要提升技能，往往是自己摸索成长，但自己不成体系的自学效果低效又漫长，而且极易碰到天花板技术停滞不前！

因此收集整理了一份《2024年最新Linux运维全套学习资料》，初衷也很简单，就是希望能够帮助到想自学提升又不知道该从何学起的朋友。

既有适合小白学习的零基础资料，也有适合3年以上经验的小伙伴深入学习提升的进阶课程，涵盖了95%以上运维知识点，真正体系化！

由于文件比较多，这里只是将部分目录截图出来，全套包含大厂面经、学习笔记、源码讲义、实战项目、大纲路线、讲解视频，并且后续会持续更新

需要这份系统化的资料的朋友，可以点击这里获取！

的零基础资料，也有适合3年以上经验的小伙伴深入学习提升的进阶课程，涵盖了95%以上运维知识点，真正体系化！**

由于文件比较多，这里只是将部分目录截图出来，全套包含大厂面经、学习笔记、源码讲义、实战项目、大纲路线、讲解视频，并且后续会持续更新

需要这份系统化的资料的朋友，可以点击这里获取！