あいまい抽出 : 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

[関連リンク]
データを抽出する(AutoFilter)
2つの条件でデータを抽出する(AutoFilter)
上位トップ、下位トップを抽出する(AutoFilter)
オートフィルタの実行と解除


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

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


Copyright (c) Excel-Excel ! All rights reserved