Excel VBAオートフィルタ - "begin with"の複数の条件

Question

私はExcel 2010でリストを自動フィルタリングするためにvbaを使用していますが、3つ以上の "開始"基準（すなわち "a * "、" b * "、" c * "）。残念ながら、私が言うことができる限り、Operator：= xlOrを使用して2つの「開始」基準を持つことができます。

VBA Autofilter (Text Filters) With Multiple Criteria of "begin with"の回答がうまくいくようです。ただし、リスト内のすべての項目をループして値を配列に追加すると、それらの項目との完全一致を自動フィルタリングするのは面倒です。特に非常に大きなリストがある。

2つ以上の「開始」基準を自動フィルタする良い方法はありますか？

Answer 1

注：受け入れ答えが、OPは、以前

は、我々は次のようにデータを持っていると言う質問で述べたゲーリーの答え使用している：

、我々はどちらかで始まる項目を見たいのA,Dまたはmである。

このマクロを実行する：

Sub ThreeWay() 
    Dim rng As Range, r As Range 
    Set rng = Range("A2:A25") 

    For Each r In rng 
     v = Left(r.Value, 1) 
     If v = "A" Or v = "D" Or v = "M" Then 
      r.EntireRow.Hidden = False 
     Else 
      r.EntireRow.Hidden = True 
     End If 
    Next r 
End Sub 

が生成されます：

注：

• この "フィルタ・バイ・ハンド" というより真でありますオートフィルタ
• オートフィルターが必要な場合は、私の古いポストのメソッドを使用してください