「二次元配列で任意の列をキーに複数ソート(並び替え)」をパーツ化する【ExcelVBA】

パーツ化とは
このコードをコピペでOK
1. 使い方
注意点
関連記事

パーツ化とは

ExcelVBAマクロ初級者からの脱却が、処理のパーツ化(プロシージャの分割)と考えています。
マクロを作る上で基本機能をパーツ化する事で、開発時間の削減に繋がります。
処理はパーツ単位で分ける事を心掛けましょう。

分かりやすく説明すると、エクセルの「関数」と同様です。
SUM関数であればセル内に「=SUM(1+2+3)」と記載すれば、セルには「6」と表示されますよね。
値を渡せば正しい値で返ってくる動きです。

このコードをコピペでOK

Option Base 1
'■2次元配列を任意の列をキーに「昇順(小さい順)」で複数条件にて入替ソートします。
Public Function Call_arraySort2(arr As Variant, OrderCol1 As Long, OrderCol2 As Long)
    Dim cnt1 As Long, cnt2 As Long
    Dim tmp As Variant
    Dim i As Long, j As Long, k As Long

    cnt1 = UBound(arr, 1)   'データ数
    cnt2 = UBound(arr, 2)   'フィールド数
    
    '■複数キーソート
    For i = 1 To cnt1
        For j = cnt1 To i Step -1
            '■1つ目のソート条件（OrderCol1）
            If arr(i, OrderCol1) > arr(j, OrderCol1) Then
                For k = 1 To cnt2
                    tmp = arr(i, k)
                    arr(i, k) = arr(j, k)
                    arr(j, k) = tmp
                Next k
            ElseIf arr(i, OrderCol1) = arr(j, OrderCol1) Then
            '■2つ目のソート条件（OrderCol2）
                If arr(i, OrderCol2) > arr(j, OrderCol2) Then
                    For k = 1 To cnt2
                        tmp = arr(i, k)
                        arr(i, k) = arr(j, k)
                        arr(j, k) = tmp
                    Next k
                End If
            End If
        Next j
    Next i
    Call_arraySort2 = arr
End Function

使い方

上記をコピペでお好きなモジュール内に記載してください。

Public Sub test()

    Dim ExArray As Variant
    ExArray = Range("A1:E10")
    
    Call Call_arraySort2(ExArray, 1, 2)  '「1列目」→「2列目」を基準に「昇順(小さい順)」で並び替え
    Call Call_arraySort2(ExArray, 4, 3)  '「4列目」→「3列目」を基準に「昇順(小さい順)」で並び替え
    
End Sub