除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請(qǐng)保留鏈接: http://www./cat4/627.html，VBA交流群273624828。

這節(jié)講下用VBA自動(dòng)實(shí)現(xiàn)高級(jí)篩選功能。利用高級(jí)篩選就可以做出一個(gè)簡單的查詢功能，在對(duì)應(yīng)的表頭下輸入要查詢的內(nèi)容就可以得到相應(yīng)的結(jié)果。

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

這個(gè)宏是我錄制的，原數(shù)據(jù)表在Sheet1，查詢的條件和查詢的結(jié)果都在Sheet2，參數(shù)中CriteriaRange是指查詢條件，CopyToRange指結(jié)果所在的第一個(gè)單元格。仿照這個(gè)功能同樣可以做出按范圍查詢的效果，只要你會(huì)用高級(jí)篩選功能，自己錄制一個(gè)宏就好了。

本節(jié)示例文件下載： http://pan.baidu.com/s/1i3qvehn。