Excel VBAで複数列のデータを簡単ソート！実践コードと効率化テクニック

Excelの大量データを処理する上では、複数列を基準としたソートが必須となることが多くあります。例えば、毎月の売上レポートを日付と商品カテゴリでそれぞれ表示したいといった場合、日付と商品カテゴリの両方を基準としたソートが必要です。

複数列ソートの利用シーン

1.データ整理

売上データや仕入データなど、複数の条件を基にデータを整理したい場合に有効です。

2.レポート作成
複数の基準でデータを並び替えて、見やすいレポートを作成する際に利用します。

 

Excel VBA Sortオブジェクトの基本的な使い方

複数列のデータをソート

Option Explicit

Sub SortMultipleColumns()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 対象のシートを指定
    Set ws = ThisWorkbook.Worksheets("データシート")
    
    ' ソート対象の範囲を設定
    Set rng = ws.Range("A1:C100")
    
    ' ソートの設定
    With ws.Sort
        .SortFields.Clear ' 既存のソート設定をクリア
        
        ' 1列目（A列）を昇順でソート
        .SortFields.Add Key:=ws.Range("B1:B100"), Order:=xlAscending
        
        ' 2列目（B列）を降順でソート
        .SortFields.Add Key:=ws.Range("C1:C100"), Order:=xlDescending
        
        ' ソートの適用
        .SetRange rng
        .Header = xlYes ' ヘッダー行があることを指定
        .MatchCase = False ' 大文字・小文字の区別をしない
        .Orientation = xlTopToBottom ' 上から下に向けてソート
        .Apply ' ソートを実行
    End With
End Sub

コードの解説

このコードは、Excel VBAを使用して、複数列のデータを条件に基づいて並べ替える方法を実現しています。

A列を昇順（小さいものから大きいものへ）
B列を降順（大きいものから小さいものへ）

この処理は、売上データや仕入データなど、複数の条件を使ってデータを整列する必要がある場面で非常に有用です。

複数条件のソートは、データを複数の基準で整理する際に非常に便利です。使い方は、1つ目の条件を設定し、次に2つ目以降の条件を順次追加していく形です。範囲の指定や条件の順序に注意して設定することで、正確なソートを行えます。