除非注明，文章均为 战战如疯 原创，转载请保留链接: 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。
联系客服
