【分享成果，随喜正能量】人生有更多美好的东西在等待我们，对他人不指责，不计较，其实也是放过了自己。遇事从容是一种气魄，我们应时刻提醒自己，遇事不慌不乱，认真解决好每一件事。

《VBA经典应用69例》，是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用4：多个标准筛选及通配符筛选。

应用4 VBA中的自动筛选（Autofilter）

大家好，我们这个专题讲解VBA中的自动筛选（Autofilter），一般情况下，我们学习VBA之前都比较熟悉了Excel的利用，为了进一步提高效率，才学习VBA，把VBA宏派上用场。在Excel工作表中，我们可以轻松地根据标准功能，使用"数据"菜单内的"筛选"功能，完成多种多样的筛选以处理各式各样的信息。我们这讲的内容是利用VBA完成自动筛选。

对于应用而言，从小数据集合中过滤掉必要的信息可以使用"筛选"功能。但是，如果你希望根据多个标准和条件过滤大量数据，利用VBA自动过滤器功能可以更轻松。它可以为你节省大量的时间和精力。例如，假设你希望筛选下拉列表中的某些信息（基于多个标准），然后将结果复制/粘贴到其他工作表中。如果手动完成，这似乎是一项非常耗时的任务。在这种情况下，VBA可以帮助你自动化完成这个过程。

5 按不同列的多个标准进行筛选

自动过滤功能还有助于用户同时过滤多个列。例如，如果你想根据抬头"年龄"和"性别"字段来筛选数据集。下面的代码是删选出“年龄=8”“性别=男”的数据，我们看下面的代码：

Sub mynzD()

【详细代码见教程】

End Sub

代码截图：

代码的解读：

①'筛选需要的数据1

.AutoFilter Field:=3, Criteria1:="男", VisibleDropDown:=False

'筛选需要的数据2

.AutoFilter Field:=2, Criteria1:="8", VisibleDropDown:=False

以上代码给出了两个筛选的条件，其一是Field:=3, Criteria1:="男",其二是Field:=2, Criteria1:="8"。得到的结果是符合上面两个条件。

下面看代码运行的结果：

6 在自动筛选中使用通配符字符

在应用筛选时，我们可以同样使用通配符来完成我们的模糊筛选。如下面的实例是筛选出籍贯中“*北”的数据，并将数据拷贝到不同的工作表中。下面看我给出的代码：

Sub mynzE()

【详细代码见教程】

End Sub

代码的截图：

代码的解读：

.AutoFilter field:=4, Criteria1:="*北", VisibleDropDown:=False

以上代码就是利用了通配符进行的筛选。

下面看代码的运行结果：

今日内容回向：

1 VBA自动筛选的语法是什么？

2 本讲介绍了多种不同的应用，是否理解？

本讲内容参考程序文件：应用004.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】放下你的浮躁，放下你的懒惰，放下你的三分钟热度，放空你禁不住诱惑的大脑，放开你容易被任何事物吸引的眼睛，放淡你什么都想聊两句八卦的嘴巴，静下心来好好做你该做的事，该好好努力了！有时候真的努力后，你会发现自己要比想象的优秀很多。记住一句话：越努力，越幸运。