配列のメモリ効率を極める：Variant型配列と静的配列の真実
Excel VBAにおいて、`Variant`型は「魔法の杖」であると同時に「メモリの墓場」でもある。
数万行のセルデータを処理する際、何も考えずに `Dim arr As Variant` を使い、`Range.Value` をそのまま代入してループを回しているようでは、プロのエンジニアとは呼べない。メモリの断片化と再割当コストを理解しなければ、巨大なデータセットを扱う際に Excel は必ず沈黙する。
本稿では、VBAにおけるメモリの深淵、すなわち「データ型」と「動的配列」の挙動を解剖し、極限環境で生き残るための実装論を説く。
—
1. Variant型配列の「見えない代償」
`Range.Value` を配列に一括代入する際、VBAは自動的に 2次元の `Variant` 配列を生成する。一見効率的に見えるが、ここでメモリ内で起きていることは以下の通りだ。
- Variant型のオーバーヘッド: 各要素が `Variant` 型であるため、データ本体以外に「型情報（Type Descriptor）」を保持するメタデータ領域が必要となる。
- Boxing/Unboxing: 値を取り出すたびに、Variant型から目的のデータ型への変換（Unboxing）が実行される。これが数千万回のループで発生すれば、CPUキャッシュ効率は壊滅的だ。
結論: 大規模データ処理においては、`Variant` 型の配列から「必要なデータ型（Long, Double, String等）」の静的または動的配列へ、早期にトランスファー（転送）しなければならない。
—
2. メモリ消費の可視化：Windows APIによる実測
VBA単体では、自プロセスの正確なメモリ占有量を追うのは難しい。`GlobalMemoryStatusEx` を呼び出し、プロセスごとのコミットサイズを確認する術を身につけておくべきだ。
‘ Windows APIの宣言
If VBA7 Then
Private Declare PtrSafe Sub GlobalMemoryStatusEx Lib “kernel32” (lpBuffer As MEMORYSTATUSEX)
Else
Private Declare Sub GlobalMemoryStatusEx Lib “kernel32” (lpBuffer As MEMORYSTATUSEX)
End If
‘ メモリ状態を取得するための構造体定義などは省略するが、
‘ これを駆使して、Variant型配列生成前後のワークセットの変化を追跡せよ。
配列の再定義（`ReDim`）を繰り返すと、ヒープ領域には「穴」が開く。`ReDim Preserve` は非常に高コストな操作であることを忘れてはならない。再定義は最小限に。あらかじめ最大値を予測し、一度のメモリ確保で完結させるのがアーキテクトの矜持だ。
—
3. 実践：メモリ最適化のための配列戦略
以下のコードは、数万行のデータを安全かつ高速に処理するためのテンプレートである。
Sub OptimizedDataProcessing()
Dim rawData As Variant
Dim targetArr() As Double
Dim i As Long, rowsCount As Long
‘ 1. 一括取得（ここは避けられない）
rawData = Range(“A1:A50000”).Value
rowsCount = UBound(rawData, 1)
‘ 2. 目的の型で配列を再確保（Variant型のメモリ断片化を回避）
ReDim targetArr(1 To rowsCount)
‘ 3. 明示的な型変換と転送
‘ Variant型の中身を必要な型に絞ることで、後続の演算速度を最大化する
For i = 1 To rowsCount
If IsNumeric(rawData(i, 1)) Then
targetArr(i) = CDbl(rawData(i, 1))
Else
targetArr(i) = 0
End If
Next i
‘ 4. オブジェクトの明示的解放（Variantをクリアしてメモリを即時開放）
rawData = Empty
‘ 以降、targetArrに対して高速な演算を行う
End Sub
4. シニアエンジニアが守るべき3つの鉄則
1. ReDim Preserveは「最終手段」: 配列サイズの拡張は、指数関数的にコストが増大する。データ数から確実に確保できる最大値を算出し、一度のメモリ割り当てで済ませよ。
2. Variantを使い捨てのバッファと見なせ: `Range.Value` で受け取った後は、早急に目的の型へシリアライズし、元の `Variant` は `Empty` で解放する。これがGC（ガベージコレクション）に頼らない、手動メモリ管理の美学だ。
3. レガシー環境でのAPI活用: 古いExcel環境（32bit）では、メモリ空間が2GBに制限されている。`VirtualAlloc` やAPIを用いた直接的なメモリ操作は、最後の砦として常に選択肢に入れておく必要がある。
最後に：アーキテクチャは細部に宿る
大規模な業務システムにおいて、数秒の処理時間短縮は単なる最適化ではない。それはシステムの安定稼働を意味し、運用者のストレスを軽減し、Excelという不安定なプラットフォームの上で「堅牢なエンジン」を動かすという技術的勝利を意味する。
VBAは、書き方一つで「おもちゃ」にも「高精度な計算機」にもなる。メモリの1バイトを惜しみ、CPUのサイクルを尊重せよ。それこそが、伝説を築くエンジニアの作法である。
