フィルターでソートをかけ抽出する

トップページ（目次）

012.フィルターでソートをかけ抽出する

＜実行前後＞

→

Sub 指定単語を含むセルにフィルターをかける()

    Range("A1:B7").AutoFilter Field:=1, Criteria1:="=*C社*"

End Sub

AutoFilter Field:=1 は列番号（1列 = A列）、C社を含むセルをフィルター最終行が毎回違う場合は、最終行を取得してフィルターの範囲を変更させる

Sub 指定単語を含むセルにフィルターをかける()

    最終行 = Cells(Rows.Count, "A").End(xlUp).Row

    Range("A1:B" & 最終行).AutoFilter Field:=1, Criteria1:="=*C社*"

End Sub