Categories: excel

VBAでAutoFilterを使いこなす！データ抽出を自動化する基本と応用テクニック

Excelで大量のデータを扱っていると、「特定の条件でデータを絞り込みたい」「毎回同じ条件でフィルターをかけるのが面倒」と感じることはありませんか。
そんなときに活躍するのが ExcelのAutoFilter（オートフィルター） です。

通常はマウス操作で簡単に使えるAutoFilterですが、毎回手動で設定するのは非効率です。そこでおすすめなのが VBA（Visual Basic for Applications）を使ったAutoFilterの自動化 です。

この記事では、

VBAでAutoFilterを使う基本構文
文字列・数値・日付による条件抽出
複数条件・複数列のフィルター方法
フィルター解除や可視セルのみの操作
よくあるエラーと対処法

までを、VBA初心者でも理解できるように実践的なコード例付きで詳しく解説します。
Excel作業を効率化したい方は、ぜひ最後までご覧ください。

VBAでAutoFilterを使うための基本構文
1. 各引数の意味
実例1：特定の文字列でデータを抽出する（VBA フィルター）
実例2：数値条件で絞り込みを行う方法
実例3：複数条件（OR条件）でデータを抽出する
実例4：複数列に同時にフィルターをかける方法
VBAでAutoFilterを解除する方法
フィルター後の可視セルのみを操作する方法
よくあるエラーと対処法
1. AutoFilterが動作しない原因
2. 「Subscript out of range」エラー
応用：ユーザーフォームと連携したAutoFilter
まとめ

VBAでAutoFilterを使うための基本構文

VBAでAutoFilterを使用する場合、Range オブジェクトに対して AutoFilter メソッドを指定します。
基本構文は次のとおりです。

Range("A1").AutoFilter Field:=1, Criteria1:="条件"

各引数の意味

Range(“A1”)
フィルターを設定する表の先頭セル（通常はヘッダー行）
Field:=1
フィルター対象となる列番号（1列目）
Criteria1:=”条件”
抽出したい条件（文字列・数値・比較演算子など）

この基本構文を理解しておくだけで、VBAによるデータ抽出の幅が一気に広がります。

実例1：特定の文字列でデータを抽出する（VBA フィルター）

以下は、「部署」列（B列）から 「営業部」だけを抽出する例です。

Sub FilterByDepartment()
    With Worksheets("Sheet1")
        .Range("A1").AutoFilter Field:=2, Criteria1:="営業部"
    End With
End Sub

このマクロを実行すると、Sheet1の表に対して
B列が「営業部」の行のみが表示されます。

部署名や商品名など、文字列条件での抽出によく使われる基本パターンです。

実例2：数値条件で絞り込みを行う方法

売上金額や数量など、数値データを条件に抽出したい場合も簡単です。

Sub FilterBySales()
    With Worksheets("Sheet1")
        .Range("A1").AutoFilter Field:=3, Criteria1:=">100000"
    End With
End Sub

この例では、
3列目（C列）の数値が10万円を超えるデータのみを表示します。

">=" や "<=" などの比較演算子も利用できます。

実例3：複数条件（OR条件）でデータを抽出する

VBAのAutoFilterでは、Criteria2 と Operator:=xlOr を使うことで
「AまたはB」といったOR条件を指定できます。

Sub FilterMultipleDepartments()
    With Worksheets("Sheet1")
        .Range("A1").AutoFilter Field:=2, _
            Criteria1:="営業部", Operator:=xlOr, Criteria2:="企画部"
    End With
End Sub

このマクロを実行すると、
「営業部」または「企画部」に該当する行のみが抽出されます。

実例4：複数列に同時にフィルターをかける方法

AutoFilterは、列ごとに複数回設定することでAND条件として動作します。

Sub FilterByMultipleFields()
    With Worksheets("Sheet1")
        .Range("A1:D100").AutoFilter
        .Range("A1:D100").AutoFilter Field:=2, Criteria1:="営業部"
        .Range("A1:D100").AutoFilter Field:=4, Criteria1:=">=2024/01/01"
    End With
End Sub

この例では、

部署が「営業部」
日付が 2024年1月1日以降

という 複数条件を同時に満たすデータのみ を抽出します。

VBAでAutoFilterを解除する方法

フィルターを解除して 全データを表示したい場合は、
AutoFilterMode プロパティを使用します。

Sub ClearFilter()
    With Worksheets("Sheet1")
        If .AutoFilterMode Then .AutoFilterMode = False
    End With
End Sub

この処理を入れておくことで、
前回のフィルター状態が残ってしまうトラブルを防止できます。

フィルター後の可視セルのみを操作する方法

AutoFilter後は、表示されている行だけを対象に処理したいケースも多くあります。
その場合は SpecialCells(xlCellTypeVisible) を使います。

Sub CopyFilteredData()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")

    ws.Range("A1").CurrentRegion _
        .SpecialCells(xlCellTypeVisible) _
        .Copy Destination:=Worksheets("Sheet2").Range("A1")
End Sub

このマクロでは、
フィルター後に表示されているデータのみをSheet2へコピーします。

よくあるエラーと対処法

AutoFilterが動作しない原因

ヘッダー行が正しく指定されていない
フィルター範囲に空白行が含まれている
Range指定が表全体になっていない

「Subscript out of range」エラー

シート名の指定ミスが原因の場合がほとんど
Worksheets("Sheet1") の名称を再確認する

応用：ユーザーフォームと連携したAutoFilter

ユーザーフォームの入力値を条件にして、
検索ツールのようなフィルター機能を作ることも可能です。

Private Sub CommandButton1_Click()
    Dim dept As String
    dept = TextBox1.Value

    With Worksheets("Sheet1")
        .Range("A1").AutoFilter Field:=2, Criteria1:=dept
    End With
End Sub

フォーム入力型にすることで、
VBAに詳しくないユーザーでも簡単にデータ抽出が可能になります。