國外網(wǎng)站介紹VBA autofilter 很不錯

https:///vba-autofilter/#Example-Multiple-Criteria-With-Different-Columns

說實話國外的網(wǎng)站對于VBA的資料相對于國內(nèi)來說內(nèi)容更豐富更具有實用性。當(dāng)然是Bing搜索引擎與百度引擎相比較,。

1  顯示所有數(shù)據(jù),，不隱藏數(shù)據(jù) (僅在Autofilter模式下使用)

If Worksheets("Function").FilterMode = True Then
Worksheets("Function").AutoFilter.ShowAllData
Worksheets("Function").Rows.Hidden = False
End If

但是如果是需要VBA高級篩選的話就不能用AutoFiler.ShowAllData 方法，否則報錯,。因為這個方法只針對AutoFilter情況,。可以換成Worksheets("XXX").ShowAllData 

2 多條件篩選(僅限于兩個篩選條件，如果多條件必須是高級篩選)

With w.Range("A1")
.AutoFilter Field:=2, Criteria1:= _
        Array("Teller", "AIO","Plan"), Operator:=xlFilterValues
.AutoFilter Field:=7, Criteria1:="<>t*", Operator:=xlFilterValues
End With

其實有很多博客都寫了關(guān)于autofilter的函數(shù)方法,，包括參數(shù)用途,。但是這里我還是最終想講一下通配符的作用，沒錯就是“*”,，“,？”，“~”,。這個坑的我好苦?。☉?yīng)該是尋找答案的時間比較長，2天時間）

先簡要介紹一下這三種通配符,。

我的需求是第七列（也就是G列）篩選出不含有開頭為字母t的內(nèi)容,。一開始以為Criteria篩選可以用正則表達(dá)式進(jìn)行篩選,，結(jié)果多次嘗試后根本就不行，然后無意間找到通配符這個功能,，研究了一下,，好像也不可以。VBA script regular express 引用也不可以,?？赡苁窍氲锰嗔耍掳嘣谲嚿贤蝗幌氲接?lt;>也就是不等于試一試,，沒想到成功了,。VBA的正則還是有一些不同的。我要好好記住它,。

Criteria1:= "<>t*"

3 高級篩選

國外有一個網(wǎng)站寫的很好,，不得不說國外的資料比較全。這是因為什么呢,？我認(rèn)為是他們很認(rèn)真,，國內(nèi)就恐怕做不到。謝謝這位作者,。

https://www./blog/2015/2/16/advanced-filters-with-vba-to-automate-filtering-on-and-out-specific-values

上面網(wǎng)站講述了一個很好的例子,。具體情況具體分析。

高級條件篩選

首先要創(chuàng)建一個篩選標(biāo)準(zhǔn)的Excel,。如果是邏輯與的話,，需要在同一行。反之邏輯或則是非同一行,。如下

說明一下"<>"這個符號在Like 函數(shù)中無法使用,，但是可以再高級篩選中使用,。

https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/like-operator

內(nèi)置模式匹配為字符串比較提供了一個功能多樣的工具。 利用模式匹配功能,，您可以將通配符,、字符列表或字符范圍任意組合使用來匹配字符串。 下表顯示了 pattern 中允許使用的字符以及它們的匹配項：

Code

w.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
     Sheets("Critical").Range("A1").CurrentRegion, Unique:=True