はじめに：Excelデータのソート、手作業にサヨナラを！
Excelでのデータ整理は、ビジネスの現場で欠かせない作業です。特に、複数の条件（キー）を使ってデータを並べ替える「複数キーソート」は頻繁に行われます。しかし、この作業を手作業で行うのは時間も労力もかかり、ミスも発生しがちです。
この記事では、Excel VBA（Visual Basic for Applications）を使って、複数キーでデータを自動ソートする方法を、初心者の方でも理解しやすいように具体例を交えながら解説します。このテクニックをマスターすれば、日々のデータ整理業務が劇的に効率化されること間違いなしです。
なぜ複数キーソートの自動化が必要なのか？
例えば、以下のような顧客データがあったとします。
- 都道府県で並べ替え、さらにその中で市区町村で並べ替え、さらにその中で顧客IDで並べ替えたい。
- 売上高の高い順に並べ替え、同額の場合は商品カテゴリで並べ替えたい。
- 日付順に並べ替え、同日の場合は担当者名で並べ替えたい。
このようなケースでは、Excelの標準機能で何度もソートを繰り返すか、毎回ソート条件を設定し直す必要があります。VBAで自動化すれば、ボタン一つで複雑なソートを一瞬で完了させることができます。
Excelのソート機能（手動）のおさらい
VBAでのソートを理解する前に、まずはExcelの手動ソート機能について簡単におさらいしましょう。
- ソートしたいデータ範囲を選択します。
- 「データ」タブの「並べ替えとフィルター」グループにある「並べ替え」をクリックします。
- 「並べ替え」ダイアログボックスで、最優先されるキー、次に優先されるキーなどを設定し、昇順・降順を選択します。
この手動での操作をVBAで再現・自動化するのが、今回の目標です。
VBAで複数キーソートを実現する「Range.Sort」メソッド
Excel VBAでデータをソートするには、RangeオブジェクトのSortメソッドを使用します。このメソッドには、ソートのキーや順序、ヘッダーの有無などを指定するための多くの引数があります。
Range.Sortメソッドの主要な引数
Key1,Key2,Key3: ソートの基準となるキー（セルまたは範囲）を指定します。最大3つまで直接指定できます。Order1,Order2,Order3: 各キーのソート順序を指定します。xlAscending（昇順）またはxlDescending（降順）を指定します。Header: データの先頭行がヘッダー（見出し）かどうかを指定します。xlYes: 先頭行はヘッダーであり、ソートの対象外とします。xlNo: 先頭行もデータの一部としてソートします。xlGuess: Excelが自動的に判断します（推奨）。
MatchCase: 大文字と小文字を区別するかどうかを指定します（TrueまたはFalse）。Orientation: ソートの方向を指定します。通常はxlSortColumns（列方向）を使用します。
実践！複数キーソートマクロの作成
それでは、具体的なサンプルコードを使って、複数キーソートマクロを作成してみましょう。
1. サンプルデータの準備
まず、Excelシートに以下のサンプルデータを入力してください。A1セルから開始し、ヘッダーを含めてください。
| 都道府県 | 市区町村 | 顧客ID | 売上 |
|---|---|---|---|
| 東京 | 新宿区 | C003 | 50000 |
| 大阪 | 中央区 | C001 | 80000 |
| 東京 | 渋谷区 | C002 | 30000 |
| 大阪 | 北区 | C004 | 120000 |
| 東京 | 新宿区 | C001 | 70000 |
| 大阪 | 中央区 | C005 | 90000 |
2. VBAコードの記述
Excelを開き、「開発」タブ → 「Visual Basic」をクリックしてVBAエディタを開きます。「挿入」→「標準モジュール」を選択し、以下のコードを貼り付けてください。
Sub MultiKeySortData()
' ソート対象のシートを指定
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' ★ここを実際のシート名に変更してください
' ソート対象範囲の最終行と最終列を自動取得
Dim lastRow As Long
Dim lastCol As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
' データ範囲を定義 (A1から最終行・最終列まで)
Dim sortRange As Range
Set sortRange = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
' ソートを実行
' Key1: 都道府県 (A列) - 昇順
' Key2: 市区町村 (B列) - 昇順
' Key3: 顧客ID (C列) - 昇順
' Header: xlYes (1行目はヘッダー)
With sortRange
.Sort Key1:=ws.Range("A1"), Order1:=xlAscending, _
Key2:=ws.Range("B1"), Order2:=xlAscending, _
Key3:=ws.Range("C1"), Order3:=xlAscending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlSortColumns
End With
MsgBox "データの複数キーソートが完了しました！", vbInformation
End Sub
3. コードの解説
Set ws = ThisWorkbook.Sheets("Sheet1"): ソート対象のシートを指定します。ご自身のシート名に合わせて変更してください。lastRow,lastCol: データの最終行と最終列を動的に取得しています。これにより、データ量が変わっても常に正しい範囲をソートできます。Set sortRange = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)): ソート対象となる全データ範囲（A1セルから最終データセルまで）を定義しています。.Sort Key1:=ws.Range("A1"), Order1:=xlAscending, ...: ここがソートの肝です。Key1:=ws.Range("A1"): 最優先のソートキーをA列（都道府県）に指定。A1はA列の任意のセルを指定することで、その列全体をキーとして認識させます。Order1:=xlAscending: A列は昇順（あいうえお順、小さい順）でソートします。- 同様に、
Key2でB列（市区町村）、Key3でC列（顧客ID）を昇順でソートするように設定しています。 Header:=xlYes: データの1行目をヘッダーとして扱い、ソートの対象外とします。MatchCase:=False: 大文字・小文字を区別しません。Orientation:=xlSortColumns: 列方向にソートすることを指定します。
4. マクロの実行
VBAエディタでMultiKeySortDataプロシージャ内にカーソルを置き、F5キーを押すか、Excelシートに戻って「開発」タブ → 「マクロ」からMultiKeySortDataを選択して「実行」をクリックしてください。
すると、データが「都道府県」→「市区町村」→「顧客ID」の順に自動でソートされるはずです。
より柔軟なソートを実現するための応用
ソート範囲の動的な指定
上記のコードでは、A1からデータがある最終セルまでをソート範囲としていますが、特定の範囲だけをソートしたい場合は、Set sortRangeの行を変更します。
' 例えば、A10からD50までをソート対象とする場合
Set sortRange = ws.Range("A10:D50")
ユーザー入力によるソートキーの変更
InputBox関数などを使って、ユーザーにソートキーの列番号や昇順/降順を選択させることで、より汎用的なマクロを作成することも可能です。これは中級者向けの応用テクニックになります。
注意点とトラブルシューティング
- データ型の問題: 数値データが文字列として入力されている場合（例: ‘123’）、正しくソートされないことがあります。必要に応じてデータ型を変換してください。
- 範囲の指定ミス: ソート対象範囲やキーの指定が間違っていると、意図しない結果になったり、エラーが発生したりします。特に
Header引数の設定は重要です。 - シート名の確認:
ThisWorkbook.Sheets("Sheet1")の部分は、必ずご自身のシート名と一致させてください。
まとめ：VBAでデータ整理の達人になろう！
この記事では、Excel VBAを使って複数キーでデータを自動ソートする方法を解説しました。Range.Sortメソッドを使いこなせば、これまで手作業で行っていた複雑なデータ整理も、一瞬で完了させることができます。
ぜひこのマクロをあなたの業務に取り入れて、データ整理の効率を劇的に向上させてください。最初は難しく感じるかもしれませんが、一度マスターすれば、VBAがあなたの強力なビジネスパートナーになるはずです。
この記事が、あなたのExcel業務自動化の一助となれば幸いです。
コメント