エクセルVBAでシートの移動と同時に表のデータの並べ替えをする

成績表やデータ表などに付き物の並べ替え作業って地味に面倒だと思ったことありませんか？

優先順位をつけて並べ替える時に、同時にエクセルシートも切替出来たら作業が1秒で終わる方法をご紹介します。

シート移動して並べ替え

VBA並べ替えの基本

「Key」で並べ替え優先順位を表します

• Key1・・・最優先
• Key2・・・２番目に優先
• Key3・・・３番目に優先

「Order」で大きい順（降順）、小さい順（昇順）を表します

• Order1・・・Key1で指定した列を並べ替える
• Order2・・・Key2で指定した列を並べ替える
• Order3・・・Key3で指定した列を並べ替える

波乗りアヒル

※降順は「xlDescending」、昇順は「xlAscending」

4つ以上の並べ替えはVBAではできませんが、どうしてもやりたい方は下記方法ならば、できますよ！

あわせて読みたい

Key4は使えないけど4つ以上項目の並べ替えをVBAコードでやる方法 エクセルVBAを使ってデータの並べ替えを行うのにSortメソッドを使うのですが、４つ目の条件までの並べ替えををVBAコードを使ってやってみたら、エラーになった経験あり…

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

これで、勝ち点が多い順に並べ替えられます。

そして今回はシートも移動してから並べ替えを行うので、移動先のシート名を「成績表」という名前とします。

波乗りアヒル

並べ替えの前にシート選択を1行追加するだけで完成です。

関連記事