Key4は使えないけど4つ以上項目の並べ替えをVBAコードでやる方法

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

エクセルVBAを使ってデータの並べ替えを行うのにSortメソッドを使うのですが、４つ目の条件までの並べ替えををVBAコードを使ってやってみたら、エラーになった経験ありませんか？

並べ替えのSortメソッドの標準機能が３つ目までなのですが、あきらめずに工夫をすれば４つ目以降も並べ替えができるようになりましたので、ご紹介いたします。

Sortメソッドを2回に分けて使う

下の図はサッカーっぽい成績表なのですが、順位を決めるのに勝ち点を最優先にしますが、同点の場合更に３つの条件により順位を決定しています。

順位決定するには「勝ち点」「得失点差」「総得点」「総失点」の順に決定するのでSortメソッドでは3項目なので足りません。

勝ち点が多いチーム順（D列）
勝ち点が同点の場合に得失点差の多いチーム順（E列）
総得点の多いチーム順（F列）
総失点の少ないチーム順（G列）

そうなると優先順位は４項目、Key4が必要になりましたがKey4は使えないので、２回に並び替えを分けます。

並べ替え手順①

まず始めに優先順位４番目（総失点の少ない順）を並べ替えますので、VBAコードはいつものようにユーザーフォームを使う実例です。

並べ替えVBAコード

Private Sub CommandButton1_Click()
Range(“B2:G23”).Sort Key1:=Range(“G3”), Order1:=xlAscending
End Sub

解説

コマンドボタン１がクリックされたら
表の範囲のセルB2～G23をG3の列で小さい順（昇順）で並べ替える
マクロ記録終了

並べ替え手順②

この状態で次に優先項目１～３を並べ替えれば、２回に分けて並べ替えたおかげで４項目順に並べ替えることができます。

VBAコード

Private Sub CommandButton1_Click()
Range(“B2:G23”).Sort Key1:=Range(“G3”), Order1:=xlAscending
Range(“B2:G23”).Sort Key1:=Range(“D3”), Order1:=xlDescending, Key2:=Range(“E3”), Order2:=xlDescending, Key3:=Range(“F3”), Order3:=xlDescending
End Sub

解説