Excel VBAを掌握する極限の知見：ユーザー定義型（Type）の配列をソートする：クイックソートの実装と型安全性
VBAの現場において、数万件に及ぶレコードデータを前に頭を抱えたことはないだろうか。
Variant型の二次元配列に放り込み、ダーティなループで並び替える——そんな非効率なアプローチは、今日限りで終わりにするべきだ。
構造化されたデータを扱い、かつ圧倒的なパフォーマンスを叩き出すためには、ユーザー定義型（User-Defined Type: UDT）の配列に対し、メモリ上で直接動作するクイックソートを実装するのが最適解である。
本稿では、レガシーなVBAの限界を突破し、型安全性を担保しながら極限まで高速化したソートエンジンの全貌を解説する。
—
1. なぜUDT配列のクイックソートなのか？
Variant型の二次元配列は柔軟だが、フィールド名にアクセスするためにはマジックナンバー（列インデックスの数値）に依存するか、冗長な定数定義が必要になる。これは保守性の観点から悪夢である。
一方、UDTは以下のような強みを持つ。
- 強烈な型安全性: メンバ変数ごとにデータ型が保証されるため、暗黙の型変換によるバグが消滅する。
- 可読性の向上: `Records(i).Amount` のように、直感的なセマンティクスでコードが書ける。
- メモリ効率: オブジェクト（Class）のインスタンス化コストを排除し、C言語の構造体に匹敵する密なメモリレイアウトを形成する。
これらを高速に並び替えるには、再帰呼び出しを用いたクイックソート（QuickSort）をVBAのメモリ構造に合わせて実装するのが最も理にかなっている。
—
2. 実装：型安全なUDTクイックソートエンジン
以下のコードは、実務の極限環境でも耐えうる堅牢な実装である。
標準モジュールに配置し、そのままシステムに組み込んでほしい。
Option Explicit
‘ —————————————————————–
‘ 業務トランザクションデータを表すユーザー定義型
‘ —————————————————————–
Public Type TransactionRecord
ID As Long
TransactionDate As Date
Category As String
Amount As Currency
IsProcessed As Boolean
End Type
‘ —————————————————————–
‘ メイン実行プロシージャ（テスト・ベンチマーク用）
‘ —————————————————————–
Public Sub ExecuteQuickSortDemo()
Dim data() As TransactionRecord
Dim totalRecords As Long
totalRecords = 100000 ‘ 10万件のストレステスト
‘ 1. データの初期化とランダム生成
ReDim data(1 To totalRecords)
Call GenerateMockData(data)
‘ 2. ソート実行（Amount降順、ID昇順の複合条件）
Dim startTime As Double
startTime = Timer
Call QuickSortUDT(data, LBound(data), UBound(data))
Debug.Print “10万件のUDTソート完了時間: ” & Format(Timer – startTime, “0.000秒”)
‘ 3. 結果の整合性確認（先頭5件）
Dim i As Long
For i = 1 To 5
Debug.Print “Rank ” & i & “: ID=” & data(i).ID & “, Amount=” & data(i).Amount
Next i
End Sub
‘ —————————————————————–
‘ クイックソート本体（再帰処理）
‘ —————————————————————–
Private Sub QuickSortUDT(ByRef arr() As TransactionRecord, ByVal low As Long, ByVal high As Long)
Dim pivot As TransactionRecord
Dim i As Long, j As Long
If low < high Then
i = low
j = high
' 厳密な中央値選定によるスタック枯渇防止（三者の中央値が望ましいが、ここでは簡易的に中央要素を採用）
pivot = arr(low + (high - low) \ 2)
Do
' 比較ロジック: Amountの降順、同額の場合はIDの昇順
Do While CompareRecords(arr(i), pivot) < 0
i = i + 1
Loop
Do While CompareRecords(arr(j), pivot) > 0
j = j – 1
Loop
If i <= j Then ' スワップ処理（一時変数によるインプレース入れ替え） Dim temp As TransactionRecord temp = arr(i) arr(i) = arr(j) arr(j) = temp i = i + 1 j = j - 1 End If Loop Until i > j
‘ 再帰的分割統治
If low < j Then Call QuickSortUDT(arr, low, j)
If i < high Then Call QuickSortUDT(arr, i, high)
End If
End Sub
' -----------------------------------------------------------------
' レコード比較関数（ビジネスロジックの集約）
' 戻り値: 負数 (a < b), 0 (a == b), 正数 (a > b)
‘ —————————————————————–
Private Function CompareRecords(ByRef a As TransactionRecord, ByRef b As TransactionRecord) As Long
‘ 第1ソートキー: Amount (降順のため、bとaを逆転させる)
If a.Amount > b.Amount Then
CompareRecords = -1
Exit Function
ElseIf a.Amount < b.Amount Then
CompareRecords = 1
Exit Function
End If
' 第2ソートキー: ID (昇順)
If a.ID < b.ID Then
CompareRecords = -1
ElseIf a.ID > b.ID Then
CompareRecords = 1
Else
CompareRecords = 0
End If
End Function
‘ —————————————————————–
‘ モックデータ生成ヘルパー
‘ —————————————————————–
Private Sub GenerateMockData(ByRef arr() As TransactionRecord)
Dim i As Long
Dim max As Long
max = UBound(arr)
Randomize
For i = 1 To max
arr(i).ID = i
arr(i).TransactionDate = DateSerial(2023, 1, 1) + Int(Rnd 365)
arr(i).Category = “Cat_” & Int(Rnd 5) + 1
arr(i).Amount = Int(Rnd 1000000) / 100#
arr(i).IsProcessed = (Rnd > 0.5)
Next i
End Sub
—
3. チーフアーキテクトが解説する極限の最適化ポイント
上記のコードには、単なるアルゴリズムの移植を超えた、VBAの裏側を知る者ならではの設計思想が組み込まれている。
① UDTの「値セマンティクス」を利用した高速スワップ
VBAのオブジェクト（Class）をソートしようとすると、参照の入れ替えが発生するだけでなく、ポインタの解決やCOMのオーバーヘッドが足を引っ張る。
しかし、UDTは値型（Value Type）であるため、`temp = arr(i)` の代入はメモリブロックの直接コピー（高速なバイト単位の転送）として処理される。これにより、数万件規模のスワップであっても一瞬で完了する。
② 再帰呼び出しのオーバーヘッドとスタック枯渇対策
クイックソートの最大の弱点は、最悪計算量$O(N^2)$におけるスタックオーバーフローである。
VBAのコールスタックは無限ではない。これを防ぐため、ピボットの選択には単なる先頭要素ではなく、`low + (high – low) \ 2`（中央値）を採用し、偏った分割による深度の爆発を抑制している。
③ 比較処理のインライン化とカプセル化
ソートのボトルネックは「比較処理」にある。`CompareRecords` 関数を `Private` かつ `ByRef` で定義することで、不要なメモリコピーやプロシージャ呼び出しのコストを極限まで削ぎ落としている。
また、ソート条件（今回はAmount降順 -> ID昇順）を変更したい場合も、この関数内部のロジックを書き換えるだけで完結するため、拡張性も担保されている。
—
4. レガシー環境・システム間連携における実務上の注意点
シニアエンジニアとして、綺麗事だけでは語れない現場の罠についても言及しておこう。
- 固定長文字列（Fixed-length String）の罠: UDT内で `String 50` のような固定長文字列を使用する場合、ANSIとUnicodeの変換コストが発生し、メモリレイアウトが予期せぬ挙動を示すことがある。文字列フィールドを扱う場合は、可変長文字列 (`String`) を用い、必要に応じて `StrComp` 関数などで厳密な比較を行うべきである。
- Excel 64bit/32bitの差異: 大規模配列のメモリ占有量は64bit環境で劇的に改善される。数百万件を扱うシステムであれば、OSおよびOffice共に64bit環境が必須要件となる。
総括
VBAは「おもちゃの言語」ではない。アーキテクチャの本質を理解し、メモリとアルゴリズムを支配すれば、C/C++製モジュールに匹敵するデータ処理エンジンへと昇華させることが可能だ。
今回紹介したUDTクイックソートをあなたのシステムに組み込み、レガシーの常識を覆す圧倒的なパフォーマンスを体感してほしい。
