利用高级筛选做查询vba实例教程

除非注明，文章均为 战战如疯 原创，转载请保留链接: http://www.zhanzhanrufeng.com/cat4/627.html，VBA交流群273624828。

这节讲下用VBA自动实现高级筛选功能。利用高级筛选就可以做出一个简单的查询功能，在对应的表头下输入要查询的内容就可以得到相应的结果。

Sub Search()

Range("A4").CurrentRegion.ClearContents

Sheets("Sheet1").Range("A1:D9").AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Range("Sheet2!A1:D2"), CopyToRange:=Range("A4"), Unique _

:=False

End Sub

这个宏是我录制的，原数据表在Sheet1，查询的条件和查询的结果都在Sheet2，参数中CriteriaRange是指查询条件，CopyToRange指结果所在的第一个单元格。仿照这个功能同样可以做出按范围查询的效果，只要你会用高级筛选功能，自己录制一个宏就好了。

本节示例文件下载： http://pan.baidu.com/s/1i3qvehn。

0 您可能也喜欢：

逐字查询

SQL基础-查询指定数量的记录

SQL基础-查询不重复记录

SQL查询同一工作簿中工作表内容

SQL基础-模糊查询

SQL基础-where条件设定

自定义范围筛选

SQL基础-条件设定

无觅关联推荐[?]