【VBA】オートフィルタを設定し、ワイルドカードを使用して条件を絞り込む

VBAから
 ・オートフィルタの設定
 ・ワイルドカードを使用して条件を絞り込み
をする方法を記載します!

前提

シート「sample」の以下の表に対して、
 ・オートフィルタの設定
 ・ワイルドカードを使用して条件を絞り込み
をします。

条件「~で始まる」で絞り込む

ここでは例として、
 ・オートフィルタの設定と表の3列目「住所」を
 ・「神奈川で始まる」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の3列目「住所」を「神奈川*」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=3, _
                                                Criteria1:="神奈川*"
End Sub

「Criteria1」に「神奈川*」を指定する。
最後*(アスタリスク)」を付ける。


上記を実行すると、以下になります。

「神奈川で始まる」で絞り込まれた

条件「~で終わる」で絞り込む

ここでは例として、
 ・オートフィルタの設定と表の3列目「住所」を
 ・「区で終わる」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の3列目「住所」を「*区」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=3, _
                                                Criteria1:="*区"
End Sub

「Criteria1」に「*区」を指定する。
最初に「*(アスタリスク)」を付ける。


上記を実行すると、以下になります。

「区で終わる」で絞り込まれた

条件「~を含む」で絞り込む

ここでは例として、
 ・オートフィルタの設定と表の3列目「住所」を
 ・「新宿を含む」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の3列目「住所」を「*新宿*」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=3, _
                                                Criteria1:="*新宿*"
End Sub

「Criteria1」に「*新宿*」を指定する。
最初最後に「*(アスタリスク)」を付ける。


上記を実行すると、以下になります。

「新宿を含む」で絞り込まれた
タイトルとURLをコピーしました