【VBA】フィルターと並び替えを自動化する方法｜AutoFilterとSortを完全マスター

Excelで大量のデータを扱うとき、手作業で並び替えやフィルターを使うのは大変です。
「特定の条件で抽出したい」「金額の大きい順に並べたい」など、よくある操作をVBAで自動化すれば、ボタンひとつで再現できます。

本記事では、VBAで「フィルター」と「並び替え」を使いこなす方法を、初心者でも理解できるように徹底解説します。
実務で役立つ応用例や、エラー対策、組み合わせパターンまで詳しく紹介していきます。

✅ VBAでフィルターを使う基本｜AutoFilterメソッド

まずは「フィルター」の自動化です。
Excelの「データ」タブ → 「フィルター」と同じ動作を、VBAで実現するのが AutoFilterメソッド です。

🔹 基本構文

Range("範囲").AutoFilter Field:=列番号, Criteria1:="条件"

🔹 例：A1:D100の範囲で、2列目「部署」が「営業部」の行を抽出

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

処理の流れ

1. A1:D100にフィルターを設定
2. 2列目（B列）の値が「営業部」の行のみを表示参考：【VBA】フィルターをかける方法を徹底解説｜実務で使える自動化テクニックとトラブル防止策

🔹 例：数値条件でフィルター（50以上）

Sub FilterByNumber()
    Range("A1:C50").AutoFilter Field:=3, Criteria1:=">=50"
End Sub

ポイント

Criteria1 では比較演算子（>、<、>=、<=）を文字列として指定できます。
上記の例では、3列目の値が「50以上」の行を抽出します。

🔹 例：複数条件で抽出（OR条件）

Sub FilterByMultipleValues()
    Range("A1:D100").AutoFilter Field:=2, Criteria1:="営業部", Operator:=xlOr, Criteria2:="開発部"
End Sub

説明

• Operator:=xlOr … OR条件（いずれかに一致）
• Criteria1 と Criteria2 で複数指定可能

営業部または開発部のデータのみを抽出します。

参考：【VBA】Findを使って複数条件で検索する方法｜実務で役立つ応用サンプル

✅ フィルターの解除方法

AutoFilterを使った後は、解除処理を入れておくのが安全です。
解除には2通りの方法があります。

🔹 方法①：AutoFilterModeプロパティを使用

Sub RemoveFilter()
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilterMode = False
    End If
End Sub

現在のシートでフィルターが有効な場合のみ解除します。
これにより、余計なエラーを防ぐことができます。

参考：【VBA】フィルターの一部だけを解除する方法｜特定列だけ再表示したいときの解決策

🔹 方法②：AutoFilterメソッドを再実行して解除

Sub ToggleFilter()
    With Range("A1:D100")
        If .Parent.AutoFilterMode Then
            .AutoFilter
        Else
            .AutoFilter
        End If
    End With
End Sub

同じ範囲で AutoFilter を再度実行すると、ON/OFFの切り替えも可能です。

参考：【VBA】フィルター解除を全て実行する方法｜複数シート・複数フィルター対応の完全自動化解説

✅ 並び替え（Sort）を使う基本｜Sortメソッド

次に、データの並び替え（ソート）を自動化する方法です。
VBAでは Range.Sort メソッドを使用します。

🔹 基本構文

Range("範囲").Sort Key1:=Range("基準列"), Order1:=xlAscending, Header:=xlYes

🔹 例：A1:D50を「C列（売上高）」の昇順で並び替え

Sub SortBySales()
    Range("A1:D50").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlYes
End Sub

処理内容

1. A1:D50のデータを対象に
2. C列を基準に小さい順に並べ替え
3. 1行目は見出しとして除外
   参考：【VBA】メソッド一覧と使い方｜初心者でも理解できる動作命令の全知識

🔹 降順で並び替え（大きい順）

Sub SortBySalesDesc()
    Range("A1:D50").Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlYes
End Sub

降順の場合は Order1:=xlDescending に変更します。
「売上高が高い順」や「日付が新しい順」に並べるときによく使います。

✅ 複数条件で並び替える（Key2, Key3）

複数の条件でソートすることも可能です。
たとえば、「部署」→「売上」の順で並び替えるようなケースです。

🔹 コード例

Sub MultiKeySort()
    With Range("A1:D50")
        .Sort Key1:=Range("B1"), Order1:=xlAscending, _
              Key2:=Range("C1"), Order2:=xlDescending, _
              Header:=xlYes
    End With
End Sub

処理内容

1. B列（部署）を昇順に並び替え
2. 同じ部署内でC列（売上高）を降順で並べる

営業データなどで非常に有用なパターンです。

✅ フィルターと並び替えを組み合わせる

VBAでは、フィルターで抽出 → ソートで順番を整える、という一連の処理を組み合わせることができます。

🔹 例：営業部のデータだけを売上順に並べ替え

Sub FilterAndSort()
    With Range("A1:D100")
        ' フィルターを設定
        .AutoFilter Field:=2, Criteria1:="営業部"
        ' 並び替えを実行（3列目の売上を降順）
        .Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlYes
    End With
End Sub

処理の流れ

1. 部署が「営業部」のデータだけを抽出
2. 売上（C列）を降順に並び替え
3. 抽出後も並び順が整った状態で表示

この組み合わせは、営業報告書・月次集計・製品別分析などでよく使われます。

✅ 特定シートを指定してフィルター＆並び替え

複数シートを扱うマクロでは、対象シートを明示して操作することが重要です。

🔹 コード例：指定シートで処理を実行

Sub FilterAndSortOnSheet()
    Dim ws As Worksheet
    Set ws = Sheets("売上データ")

    With ws.Range("A1:D100")
        .AutoFilter Field:=2, Criteria1:="開発部"
        .Sort Key1:=ws.Range("C1"), Order1:=xlDescending, Header:=xlYes
    End With
End Sub

ポイント

• Set ws = Sheets("売上データ") で対象シートを変数化
• .Range や .Sort の前に ws. を付けることで、
  他のシートがアクティブでも安全に動作します。

✅ フィルター条件を動的に設定する

ユーザー入力やセル値を基に、条件を柔軟に変化させることも可能です。

🔹 コード例：セルの値を条件に抽出

Sub DynamicFilter()
    Dim target As String
    target = Sheets("設定").Range("B1").Value

    With Sheets("データ").Range("A1:D100")
        .AutoFilter Field:=2, Criteria1:=target
    End With
End Sub

説明

• 設定シートのB1セルに入力された値（例：「開発部」）を条件に使用
• データシート上で自動的にフィルターを適用

これにより、ユーザーがセルに条件を入力するだけで抽出結果が切り替わる仕組みを作れます。

✅ フィルター・ソートのエラー対策

実務では、データ範囲が変動したり、見出しが欠けていたりして、エラーが起きることもあります。
安全に実行するために、以下の対策を入れておきましょう。

⚠ 1. データ範囲の自動取得

固定範囲ではなく「最終行まで自動認識」するようにします。

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:D" & lastRow).AutoFilter Field:=2, Criteria1:="営業部"

⚠ 2. フィルターが既に設定されている場合に解除

If ActiveSheet.AutoFilterMode Then
    ActiveSheet.AutoFilterMode = False
End If

⚠ 3. 見出し行を誤って含めない

Header:=xlYes を指定し忘れると、ヘッダー行まで並び替え対象になります。
常に設定しておく習慣をつけましょう。

✅ 実務での応用シナリオ

① 営業部別に並び替えレポートを作成

• フィルターで「営業部」を抽出
• 売上を降順ソート
• 結果を別シートにコピー

② 月次更新時の自動整理マクロ

• 新しいデータを追加後に自動ソート
• 日付列を降順で並び替えて最新順に表示

③ ボタン一つで「抽出＋並び替え＋レポート出力」

• AutoFilterとSortを組み合わせて条件集計
• PDF出力やメール送信と連携も可能

■ まとめ：VBAでフィルターと並び替えを自在に扱う

• AutoFilterで条件抽出、Sortで並び替えを自動化できる
• 条件や列番号は動的に指定することで柔軟な処理が可能
• フィルター解除や見出し設定を忘れずに
• 組み合わせることで「抽出→整列→出力」の一連処理を自動化

Excelのフィルター・並び替え機能は、VBAで扱うことで単なる分析から“自動レポート作成”へ進化します。
マクロボタンを押すだけで抽出・整列・集計まで完了する仕組みを作れば、業務時間を大幅に短縮できます。