【VBA】指定した順番で並べ替えをおこなう

こんにちは、Ryoです。
データ操作として並べ替えを利用する頻度が高いと思いますが、その並べ替えを行う際に基準（キー）を指定することでオリジナルの順番で並べ替えを行うこともできますので、今回はその内容について書いていきます。

1.サンプル概要
2.サンプルコード
3.まとめ

1.サンプル概要

ワークシート「Sheet1」にサンプルとして下のような表を作成しています。この表に対してB列の製品名を「製品B1,製品A2,製品A3,製品B2,製品A1」の順で指定して並べ替えを行います。

並べ替えの基準を指定して実行した結果が画像の通りです。このように指定した順番で並べ替えることも可能です。

以上がサンプル概要になります。

2.サンプルコード

Sub Sample1()
'＊＊＊指定した順番で並べ替えを行う＊＊＊

  'ワークシート「Sheet1」に対する処理
  With Worksheets("Sheet1").Sort
    '並べ替えの設定をクリア
    .SortFields.Clear
    '指定した順序で並べ替え設定を行う
    .SortFields.Add Key:=Range("B1"), _
     CustomOrder:="製品B1,製品A2,製品A3,製品B2,製品A1"
    '並べ替えのセル範囲を指定
    .SetRange Range("A1").CurrentRegion
    '最初の行にヘッダー情報が含まれるのでxlYes指定
    .Header = xlYes
    '並べ替えを実行
    .Apply
  End With

End Sub

使用するのはSortオブジェクトとAddメソッドになります。これらを用いたデータやセル色などでの並べ替えや引数・定数については以前記事を投稿していますのでご参考までに。