ExcelマクロVBAサンプル集
1次元配列の並べ替え(バブルソート,挿入ソート,クイックソート)

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2019-10-29

1次元配列の並べ替え(バブルソート,挿入ソート,クイックソート)


配列(1次元)の並べ替え方法について、バブルソート、挿入ソート、クイックソートのサンプルになります。
元来エクセルには、ワークシートの並べ替え機能があります。
ワークシートにデータを書き出して、ワークシートの並べ替え機能を使えるのですが、
どうしても、配列をワークシートに途中で書き出すと言うのは面倒なものです。
そこで、配列を並べ替える必要が出てきます。


アルゴリズムの解説ではなく、あくまでVBAでの実装サンプルになります。
ソートアルゴリズムについては、詳細に解説しているサイトをご覧ください。

検証方法

Sheet1A1~A10000にランダムなデータを入れました。
これを(昇順に)並べ替えて、Sheet2 に出力しています。



Sub ソート検証()
  Dim ws1 As Worksheet
  Dim ws2 As Worksheet
  Dim myAry1()
  Dim myAry2()
  Dim i As Long
  Set ws1 = Worksheets("Sheet1")
  Set ws2 = Worksheets("Sheet2")
  myAry1 = ws1.Range("A1:A10000").Value
  
  'myAry1は2次元配列なのでmyAry2で1次元配列に変更
  ReDim myAry2(LBound(myAry1) To UBound(myAry1))
  For i = LBound(myAry1) To UBound(myAry1)
    myAry2(i) = myAry1(i, 1)
  Next
  
  '1次元配列ソート
  Dim start As Double: start = Timer
  'Call バブルソート(myAry2)
  'Call 挿入ソート(myAry2)
  'Call クイックソート(myAry2, LBound(myAry2), UBound(myAry2))
  Debug.Print Timer - start
  
  'myAry2は1次元配列なのでmyAry1で2次元配列に変更
  For i = LBound(myAry2) To UBound(myAry2)
    myAry1(i, 1) = myAry2(i)
  Next
  ws2.Cells.Clear
  ws2.Range("A1:A10000").Value = myAry1
End Sub

ソートごとに、
Call バブルソート(myAry2)
Call 挿入ソート(myAry2)

Call クイックソート(myAry2, LBound(myAry2), UBound(myAry2))
この3行のいずれか1つだけにして実行しています。
複数回実行し、所要時間の平均時間の概数を記載しています。
時間はデータとPC環境にかなり依存しますので、あくまで目安になります。

バブルソート

ソートのアルゴリズムの中で、簡単で理解しやすいのは、バブルソートでしょう 。
バブルは「泡」のことで、並べ替えの過程でデータが下から上(上から下)へ移動する感じが、泡が浮かんでいく様に見えることからこの名前が付いているそうです。

Sub バブルソート(ByRef argAry() As Variant)
  Dim vSwap As Variant
  Dim i As Integer
  Dim j As Integer
  For i = UBound(argAry) To LBound(argAry) Step -1
    For j = LBound(argAry) To i - 1
      If argAry(j) > argAry(j + 1) Then
        vSwap = argAry(j)
        argAry(j) = argAry(j + 1)
        argAry(j + 1) = vSwap
      End If
    Next j
  Next i
End Sub

外側のFor~Nextの1回目が終わった時点で、配列の最後尾に最大値が来ます。
以下、2回目のループで配列の最後から2番目に2番目に大きいデータが来ます。
これの繰り返しになっています。

If argAry(j) > argAry(j + 1) Then
これを
If argAry(j) < argAry(j + 1) Then
とすれば、降順の並べ替えになります。

非常に単純ですが、処理時間がかかる事が難点です。
データ件数が、少なければ単純で良いでしょう。
では、その処理時間を見てみます。

1万件で2.7秒です。
1万件で2.7秒なら、遅いけど待てない時間ではないでしょうか、それでも件数的には限界でしょうね。
件数を増やすと、
2万件で約13秒かかってしまいます。
これはかかりすぎですね、実際に使用するとなると数千件以内に限定されそうです。

挿入ソート

挿入ソート(インサーションソート)は、
整列してある配列に追加要素を適切な場所に挿入することで並べ替えを行っています。
アルゴリズムは非常に単純でVBAも簡単です。



Sub 挿入ソート(ByRef argAry() As Variant)
  Dim Low As Long
  Dim Upp As Long
  Low = LBound(argAry)
  Upp = UBound(argAry)
  Dim i As Long, j As Long
  Dim vSwap As Variant
  For i = Low + 1 To Upp
    vSwap = argAry(i)
    For j = i - 1 To Low Step -1
      If argAry(j) > vSwap Then
        argAry(j + 1) = argAry(j)
      Else
        Exit For
      End If
    Next
    argAry(j + 1) = vSwap
  Next
End Sub

基準位置(i)を、それより前の配列の適切な位置に挿入していくことで並べ替えています。
元の並び順がある程度そろっているときは速いのですが、逆順に並んでいると遅くなります。
では、その処理時間を見てみます。

1万件で約0.81秒
2万件で約3.22秒
ただし、
バブルソートよりは速そうですが、もし、全く逆順になっているデータの場合、
1万件で約1.78秒
2万件で約7.18秒
このように、かなり時間が違ってきます。
データ順がはっきりしていない場合には、やはり1万件程度までが実質的な使用範囲でしょうか。

クイックソート

さらに、高速なソートアルゴリズムはないのか・・・
いろいろ沢山あるようですが、その一つとしてクイックソートがあります。
クイックソートは一般的にかなり高速だといわれてはいますが、
アルゴリズムとしてはいろいろな亜種があるらしいです。
ここでは、ごく一般的な方法を採用しています。
アルゴリズムの詳細は説明が長くなってしまいますので、専門に解説しているページを参照して下さい。

Sub クイックソート(ByRef argAry() As Variant, _
          ByVal lngMin As Long, _
          ByVal lngMax As Long)
  Dim i As Long
  Dim j As Long
  Dim vBase As Variant
  Dim vSwap As Variant
  vBase = argAry(Int((lngMin + lngMax) / 2))
  i = lngMin
  j = lngMax
  Do
    Do While argAry(i) < vBase
      i = i + 1
    Loop
    Do While argAry(j) > vBase
      j = j - 1
    Loop
    If i >= j Then Exit Do
    vSwap = argAry(i)
    argAry(i) = argAry(j)
    argAry(j) = vSwap
    i = i + 1
    j = j - 1
  Loop
  If (lngMin < i - 1) Then
    Call クイックソート(argAry, lngMin, i - 1)
  End If
  If (lngMax > j + 1) Then
    Call クイックソート(argAry, j + 1, lngMax)
  End If
End Sub

このアルゴリズムをすっきり理解するのは大変ですね。
基準値を決め、大きい値のグループと小さい値のグループに分けることを繰り返します。
これを再帰プロージャーで、範囲を狭めながら繰り返しています。
これにより並べ替えを実現しています。
では、その処理時間を見てみます。

1万件で約0.011秒
2万件で約0.022秒
10万件で約0.091秒
100万件で約1.46秒
やはり断然はやいですね。
件数が増えても、実用として問題ない数値だと思います。

最後に

数百件程度の配列なら、バブルソートでもよいですが、
それ以上になるなら、やはりクイックソートが好ましいでしょう。

今回の実行例でもそうですが、
やはり、配列は2次元になる場合が多いです。
そこで、次回は、
2次元配列の並べ替え
配列(2次元)の並べ替え方法について、バブルソートとクイックソートのサンプルになります。2次元配列の並べ替えと言えば、まさにワークシートの並べ替え機能になります。本来は、ワークシートにデータを書き出して、ワークシートの並べ替え機能を使えば良いのですが、しかし、どうしても、配列をワークシートに処理途中で書き出すと言うのは面倒なものです。



同じテーマ「マクロVBAサンプル集」の記事

1次元配列の並べ替え(バブルソート,挿入ソート,クイックソート)
2次元配列の並べ替え(バブルソート,クイックソート)
Dir関数で全サブフォルダの全ファイルを取得
順列の全組み合わせ作成と応用方法


新着記事NEW ・・・新着記事一覧を見る

VBAでのCSVの扱い方まとめ|VBAサンプル集(11月9日)
VBAにおける変数のメモリアドレスについて|VBA技術解説(11月8日)
空文字列の扱い方と処理速度について(""とvbNullString)|VBA技術解説(1月7日)
Errオブジェクトとユーザー定義エラー|VBA入門(11月5日)
シングルクォートの削除とコピー(PrefixCharacter)|VBA技術解説(11月4日)
ユーザー定義型の制限とクラスとの使い分け|VBA技術解説(11月3日)
クリップボードに2次元配列を作成してシートに貼り付ける|VBA技術解説(11月1日)
VBAクラスを使ったイベント作成(Event,RaiseEvent,WithEvents)|VBA技術解説(10月31日)
VBAクラスのAttributeについて(既定メンバーとFor Each)|VBA技術解説(10月19日)
VBAの用語について:ステートメントとは|VBA技術解説(10月16日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数宣言のDimとデータ型|ExcelマクロVBA入門
6.繰り返し処理(For Next)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.ひらがな⇔カタカナの変換|エクセル基本操作
9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説
10.セルに文字を入れるとは(Range,Value)|VBA入門



  • >
  • >
  • >
  • 1次元配列の並べ替え(バブルソート,挿入ソート,クイックソート)

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。




    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
    本文下部へ