Rangeオブジェクトを並び替える

左のデータを右のようにソートしたいとします

sort関数の第2引数にsortしたい列をバリアント配列で渡すことにより複数列を指定できます

With Range("A2:C16")
    .Value = WorksheetFunction.sort(.Value, Array(2, 1))
End With

降順にsortしたい場合は第3引数に1昇順,-1降順をバリアント配列で渡すことにより指定できます

With Range("A2:D16")
    .Value = WorksheetFunction.sort(.Value, Array(2, 1), Array(-1, 1))
End With

セル関数の、SORT関数で複数列をソートする方法を、VBAのコードで実現しています

参考までにユーザ定義の１次元配列を並び替えるには

    配列 = Array(5, 4, 3, 2, 1)
    '第3引数がTrueで並び換え基準に列方向を指定
    配列 = WorksheetFunction.Sort(配列, , , True)
    '注意：代入先の変数の型はバリアント型でないとダメ