配列のデータを並び替えて配列に格納し直す

配列の並び替えはしんどい

配列のデータも並び替えはできるらしいのですが、しんどい(;^ω^)
なので、いったんWorkSheetに配列データを格納して、並び替えたデータを配列に格納する方法を記述しました。

Public arrMy, arrMy2, rangeMy As Range

Sub 配列→Range→配列()
    
    'Sheetのデータを配列に格納
    arrMy = Range("A1").CurrentRegion
    
    '新規Bookに配列の値を格納
    Worksheets.Add.Name = "Temp"
    Range(Cells(1, 1), Cells(UBound(arrMy), UBound(arrMy, 2))) = arrMy
    
    '並び替えたRangeを配列に格納する。
    Set rangeMy = Range("A1").CurrentRegion
    rangeMy.Sort Key1:=Range("B2"), order1:=xlAscending
    arrMy2 = rangeMy
    
    'Sheetの削除（削除時のメッセージを表示しない）
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    
End Sub

現在、プロジェクト単位でモジュールを作成しており、その中で並び替えがことなる場合があります。その場合に対応するためにこんなことをしたかったのです。

備忘録でした。(^^)/~~~