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

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

パーツ化とは

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

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

このコードをコピペでOK

Option Base 1
'■注意点■
'■2次元配列を任意の列をキーに「昇順(小さい順)」「降順(大きい順)」入替ソートします。
Public Function ArraySort(arr As Variant, OrderCol As Long, AscendingOrder As Boolean)
    '■Option Base 1で実行する必要があります
    '■OrderCol は ソートの基準の列です
    
    Dim i As Long, j As Long
    Dim finFlg As Boolean
    
    Dim temp() As Variant
    ReDim temp(1, UBound(arr, 2))

    Do
        finFlg = True

        For i = 1 To UBound(arr, 1) - 1
            '■並び替えの方法
            Select Case AscendingOrder
            Case True '■■昇順で並び替え
                If arr(i, OrderCol) > arr(i + 1, OrderCol) Then
                    finFlg = False
                    For j = 1 To UBound(arr, 2)
                        temp(1, j) = arr(i, j)
                    Next j
                    For j = 1 To UBound(arr, 2)
                        arr(i, j) = arr(i + 1, j)
                    Next j
                    For j = 1 To UBound(arr, 2)
                        arr(i + 1, j) = temp(1, j)
                    Next j
                End If
            Case False '■■降順で並び替え
                If arr(i, OrderCol) < arr(i + 1, OrderCol) Then
                    finFlg = False
                    For j = 1 To UBound(arr, 2)
                        temp(1, j) = arr(i, j)
                    Next j
                    For j = 1 To UBound(arr, 2)
                        arr(i, j) = arr(i + 1, j)
                    Next j
                    For j = 1 To UBound(arr, 2)
                        arr(i + 1, j) = temp(1, j)
                    Next j
                End If
            End Select
        Next i
    Loop While Not (finFlg)

End Function

使い方

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

Public Sub test()

    Dim ExArray As Variant
    ExArray = Range("A1:C10")
    
    Call ArraySort(ExArray, 1, True)  '「1列目」を基準に「昇順(小さい順)」で並び替え
    Call ArraySort(ExArray, 2, False) '「2列目」を基準に「降順(大きい順)」で並び替え
    Call ArraySort(ExArray, 3, True)  '「3列目」を基準に「昇順(小さい順)」で並び替え
    
End Sub