－ちょっと使えるネタを紹介－
Excel VBAで、シートを昇順や降順で並び替えたい場合は、バブルソートを使って、Moveでシートを移動することで、並び替えることができます。シートが大量にある場合で、シートを並び替えしたい場合は、自動で並び替えができるようにしていきましょう。
この記事では、シートを並び替えする方法について、ご紹介します。
残念ながら、シートを並び替えする機能はないので、プログラム的に並び替えする必要があります。
バブルソートという並び替えの手法を使って、「Move」でシートを移動させて、シートを並び替えすることができます。
シートの並び替えについて、マスターしていきましょう。
では、シートを並び替えする方法について、解説していきます。
この記事を読むメリット
目次から見たい項目へ移動すると便利ですよ。
目次
シートを昇順に並び替えしてみます。
昇順に並び替えするには、バブルソートを使って、シートを移動させることでできます。
バブルソートを使って、シートを移動させる手順についてみてみます。
まずは、1番目のシートを基準に、2～5番目のシートと比較して、シートの移動をします。
1番目を基準にして、2～5番目のシートと比較をします。
右のシートが小さい場合は、基準のシートの左へ移動をします。
次は、2番目のシートを基準にして、シートを比較してシートを移動します。
2番目を基準にして、3～5番目のシートと比較をします。
右のシートが小さい場合は、基準のシートの左へ移動をします。
次は、3番目を基準にしてシートを比較して、シートを移動させます。
3番目を基準にして、4～5番目のシートと比較をします。
右のシートが小さい場合は、基準のシートの左へ移動をします。
次は、4番目を基準にしてシートを比較して、シートを移動させます。
4番目を基準にして、5番目のシートと比較をします。
右のシートが小さい場合は、基準のシートの左へ移動をします。
こんな感じで、シートを比較して、シートを移動させることで、シートを昇順に並び替えすることができます。
シートを昇順に並び替えするVBAコードをみてみます。
手順としては、次のようになります。
VBAコードはつぎのようになります。
Sub TEST1() '基準をループ For i = 1 To 4 '比較先をループ For j = i + 1 To 5 '右側が小さい場合は、基準の左に移動 If Sheets(i).Name > Sheets(j).Name Then Sheets(j).Move before:=Sheets(i) '基準の左に移動 End If Next Next End Sub
では、実際に実行する流れをみていきます。
実行する流れをみていきます。
やりたい内容は、シートを昇順に並び替えしたいということになります。
1番目を基準に比較して、シートを移動させます。
1番目と、2番目のシートを比較します。
右のシートの方が小さいので、基準シートの左に移動をします。
1番目と、3番目のシートを比較します。
右のシートの方が小さいので、基準シートの左に移動をします。
1番目と、4番目のシートを比較します。
1番目と、5番目のシートを比較します。
次は、2番目を基準に比較して、シートを移動させます。
2番目と、3番目のシートを比較します。
2番目と、4番目のシートを比較します。
2番目と、5番目のシートを比較します。
次は、3番目を基準に比較して、シートを移動させます。
3番目と、4番目のシートを比較します。
3番目と、5番目のシートを比較します。
次は、4番目を基準に比較して、シートを移動させます。
4番目と、5番目のシートを比較します。
右のシートの方が小さいので、基準シートの左に移動をします。
これで、シートを昇順に並び替えできます。
シートを昇順に並び替えできました。
次は、シートを「降順」に並び替えしてみます。
考え方は、昇順の場合と同じで、バブルソートを使って、シートを比較してシートを移動させていく、という感じになります。
昇順と違うのは、右のシートが「大きい」場合に、シートの移動をするという点になります。
では、手順をみていきます。
まずは、1番目を基準に比較して、シートを移動させます。
1番目を基準にして、2～5番目のシートと比較をします。
右のシートが大きい場合は、基準のシートの左へ移動をします。
次は、2番目を基準に比較して、シートを移動させます。
2番目を基準にして、3～5番目のシートと比較をします。
右のシートが大きい場合は、基準のシートの左へ移動をします。
次は、3番目を基準に比較して、シートを移動させます。
3番目を基準にして、4～5番目のシートと比較をします。
右のシートが大きい場合は、基準のシートの左へ移動をします。
次は、4番目を基準に比較して、シートを移動させます。
4番目を基準にして、5番目のシートと比較をします。
右のシートが大きい場合は、基準のシートの左へ移動をします。
という感じで、シートを降順に並び替えることができます。
シートを降順に並び替えるVBAコードをみてみます。
手順は、次のようになります。
降順の場合は、右側のシートが「大きい」場合に、シートを移動させます。
VBAコードは、次のようになります。
Sub TEST2() '基準をループ For i = 1 To 4 '比較先をループ For j = i + 1 To 5 '右側が大きい場合は、基準の左に移動 If Sheets(i).Name < Sheets(j).Name Then Sheets(j).Move before:=Sheets(i) '基準の左に移動 End If Next Next End Sub
では、実行する流れをみていきます。
やりたい内容としては、シートを降順に並び替えしたいということになります。
では、VBAコードを実行してみます。
まずは、1番目を基準に比較して、シートを移動させます。
1番目を基準にして、2番目のシートと比較をします。
右のシートが大きい場合は、基準のシートの左へ移動をします。
1番目を基準にして、3番目のシートと比較をします。
1番目を基準にして、4番目のシートと比較をします。
1番目を基準にして、5番目のシートと比較をします。
次は、2番目を基準に比較して、シートを移動させます。
2番目を基準にして、3番目のシートと比較をします。
2番目を基準にして、4番目のシートと比較をします。
右のシートが大きい場合は、基準のシートの左へ移動をします。
2番目を基準にして、5番目のシートと比較をします。
次は、3番目を基準に比較して、シートを移動させます。
3番目を基準にして、4番目のシートと比較をします。
3番目を基準にして、5番目のシートと比較をします。
次は、4番目を基準に比較して、シートを移動させます。
4番目を基準にして、5番目のシートと比較をします。
右のシートが大きい場合は、基準のシートの左へ移動をします。
これで、シートを降順に並び替えできます。
シートを降順に並び替えできました。
この記事では、シートを並び替えする方法について、ご紹介しました。
残念ながら、シートを並び替えする機能はないので、プログラム的に並び替えする必要があります。
バブルソートという並び替えの手法を使って、「Move」でシートを移動させて、シートを並び替えすることができます。
シートの並び替えについて、マスターしていきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する