最后的话
最近很多小伙伴找我要Linux学习资料，于是我翻箱倒柜，整理了一些优质资源，涵盖视频、电子书、PPT等共享给大家！
资料预览
给大家整理的视频资料：
给大家整理的电子书资料：
如果本文对你有帮助，欢迎点赞、收藏、转发给朋友，让我有持续创作的动力！
网上学习资料一大堆，但如果学到的知识不成体系，遇到问题时只是浅尝辄止，不再深入研究，那么很难做到真正的技术提升。
一个人可以走的很快，但一群人才能走的更远！不论你是正从事IT行业的老鸟或是对IT行业感兴趣的新人，都欢迎加入我们的的圈子（技术交流、学习资源、职场吐槽、大厂内推、面试辅导），让我们一起学习成长！
上述代码含义是在名为“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
最全的Linux教程，Linux从入门到精通
======================
1. **linux从入门到精通(第2版)**
2. **Linux系统移植**
3. **Linux驱动开发入门与实战**
4. **LINUX 系统移植 第2版**
5. **Linux开源网络全栈详解 从DPDK到OpenFlow**
第一份《Linux从入门到精通》466页
====================
内容简介
====
本书是获得了很多读者好评的Linux经典畅销书**《Linux从入门到精通》的第2版**。本书第1版出版后曾经多次印刷，并被51CTO读书频道评为“最受读者喜爱的原创IT技术图书奖”。本书第﹖版以最新的Ubuntu 12.04为版本，循序渐进地向读者介绍了Linux 的基础应用、系统管理、网络应用、娱乐和办公、程序开发、服务器配置、系统安全等。本书附带1张光盘，内容为本书配套多媒体教学视频。另外,本书还为读者提供了大量的Linux学习资料和Ubuntu安装镜像文件，供读者免费下载。
**本书适合广大Linux初中级用户、开源软件爱好者和大专院校的学生阅读，同时也非常适合准备从事Linux平台开发的各类人员。**
> 需要《Linux入门到精通》、《linux系统移植》、《Linux驱动开发入门实战》、《Linux开源网络全栈》电子书籍及教程的工程师朋友们劳烦您转发+评论
**网上学习资料一大堆，但如果学到的知识不成体系，遇到问题时只是浅尝辄止，不再深入研究，那么很难做到真正的技术提升。**
**[需要这份系统化的资料的朋友，可以点击这里获取！](https://bbs.csdn.net/topics/618542503)**
**一个人可以走的很快，但一群人才能走的更远！不论你是正从事IT行业的老鸟或是对IT行业感兴趣的新人，都欢迎加入我们的的圈子（技术交流、学习资源、职场吐槽、大厂内推、面试辅导），让我们一起学习成长！**
识不成体系，遇到问题时只是浅尝辄止，不再深入研究，那么很难做到真正的技术提升。**
**[需要这份系统化的资料的朋友，可以点击这里获取！](https://bbs.csdn.net/topics/618542503)**
**一个人可以走的很快，但一群人才能走的更远！不论你是正从事IT行业的老鸟或是对IT行业感兴趣的新人，都欢迎加入我们的的圈子（技术交流、学习资源、职场吐槽、大厂内推、面试辅导），让我们一起学习成长！**
8396
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
