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

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

說實話國外的網(wǎng)站對于VBA的資料相對于國內(nèi)來說內(nèi)容更豐富更具有實用性。當然是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情況?？梢該Q成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ù)用途。但是這里我還是最終想講一下通配符的作用，沒錯就是“*”，“？”，“~”。這個坑的我好苦啊（應該是尋找答案的時間比較長，2天時間）

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

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

Criteria1:= "<>t*"

3 高級篩選

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

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

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

高級條件篩選

首先要創(chuàng)建一個篩選標準的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