フィルターで特定文字を含むデータを抽出

 

Sub test()

     ’ 名前に田を含むものを絞り込む

      Range("A1").AutoFilter field:=1, Criteria1:="*田*"

End Sub

 

実行結果

 

 

フィルターで特定文字を始まるデータを抽出

 

Sub test2()

   ’ 名前に岡を始めるものを抽出

   Range("A1").AutoFilter field:=1, Criteria1:="岡*"

End Sub

 

実行結果

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事