あいまい抽出： Excel

オートフィルタを使いあいまい抽出します。あいまい抽出は、抽出条件「Criteria1」の前後に｢*｣（半角アスタリスク）を付けます。
指定した文字で抽出するには「オートフィルタの実行と解除」を参照してください。

Homeに戻る > Excel 数値・文字列・検索・印刷のTipsへ

Excel実行画面

あいまい抽出実行前の全国耕地面積一覧シートです。
あいまい抽出前の全国耕地面積一覧

あいまい抽出する市町村に「見」と入力し、「実行」ボタンをクリックした結果です。
市町村名に「見」が付くデータのみが抽出され、表示されました。先頭にも中ほどにも含まれるデータが抽出されています。
見が付く市町村が抽出された結果

Excel VBAコード

コマンドボタン1と2の違いは、Showメソッドの引数にです。

'あいまい抽出の実行ボタン
Private Sub CommandButton1_Click()
    Dim llast As Long

    If Range("D2") = "" Then
        MsgBox "あいまい抽出する市町村名をD2セルに入力してください。"
        Exit Sub
    End If

    llast = Range("C65536").End(xlUp).Row
    Range("B4:G" & llast).AutoFilter Field:=2, Criteria1:="=*" & Range("D2") & "*"


End Sub

'解除ボタン
Private Sub CommandButton2_Click()
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilter.Range.AutoFilter
    End If
End Sub

Homeに戻る > Excel 数値・文字列・検索・印刷のTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

あいまい抽出 ： Excel

Excel実行画面

Excel VBAコード

あいまい抽出： Excel