vba自定義自動過濾與條件

Question

請指導我如何使用vba中的過濾器查找功能。我想找到所有應該包含「孟買」和「德里」的行。 我使用下面的編碼，但只能在條件。

If Not ws1.AutoFilterMode Then 
ws1.Range("A1").AutoFilter _ 
field:=1, Criteria1:="Mumbai", Operator:=xlFilterValues 
End If 

Answer 1

這將篩選到含有任值孟買或德里行，並使用通配符*以包括可能含有與其他值，例如沿着這些值的任何行，這將包括行，其中單元格值是Mumbai, India等

ws1.Range("A1").AutoFilter _ 
    field:=1, _ 
    Criteria1:="=*Delhi*", _ 
    Operator:=xlOr, _ 
    Criteria2:="=*Mumbai*" 

這是一個嚴格的過濾器，如果你需要過濾的細胞同時包含孟買和德里，那麼這可能會奏效使用通配符*：

ws1.Range("A1").AutoFilter _ 
    Field:=1, _ 
    Criteria1:="=*Mumbai*Delhi*", _ 
    Operator:=xlOr, _ 
    Criteria2:="=*Delhi*Mumbai*" 

Answer 2

另一種選擇是使用標準的數組：

ws1.Range("A1").Autofilter _ 
    Field:=1, _ 
    Criteria1:=Array("Mumbai","Delhi"), _ 
    Operator:=xlFilterValues