【入門編】配列の動的再定義（ReDim Preserve）とパフォーマンスの限界 – Excel VBA解析バイブル

ExcelVBA

2026.08.26

こんにちは。VBAの世界へようこそ。
マクロの記録でコードを書き始めたあなたが、次にぶつかる壁が「大量データの高速処理」です。

「配列を使えば速くなる」と聞いて`ReDim Preserve`をループの中で連打していませんか？実はそれ、VBAのパフォーマンスを殺している最大の原因かもしれません。

今日は、メモリの裏側で何が起きているのか、そしてプロがどう配列を使いこなしているのかを徹底解説します。ここを理解すれば、あなたの書くコードは一気に「エンジニアの領域」へ足を踏み入れることになりますよ。

—

まず、`ReDim Preserve`の仕組みを知りましょう。これは「現在の配列の内容を保持したまま、メモリ上の箱を大きくする」命令です。

VBAにとって、メモリの確保は「連続した空き地」を探す作業です。
1. 新しいサイズの空き地を探す。
2. 今のデータを新しい空き地にコピーする。
3. 古い空き地を解放する。

これをループのたびに繰り返すのは、「住むたびに家を建て替えて、全荷物を運び出す」のと同じです。データ量が増えれば増えるほど、このコピー時間は指数関数的に増大し、処理は遅延します。

—

では、どうすればいいのか？答えはシンプル。「あらかじめ必要な最大サイズを確保する」ことです。

行数が予測できる場合は、最初に最大サイズで宣言しましょう。

Sub OptimizedArrayExample()
Dim ws As Worksheet
Set ws = ActiveSheet

‘ 1. 最終行を取得して、最初からメモリを確保する
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

‘ 2. 最初から必要なサイズで配列を宣言（これが最速！）
Dim dataArray() As Variant
ReDim dataArray(1 To lastRow, 1 To 1)

‘ 3. ループで詰め込む（ReDimは一度も使わない）
Dim i As Long
For i = 1 To lastRow
dataArray(i, 1) = ws.Cells(i, 1).Value
Next i

‘ ここで一気に処理を行う
End Sub

—

もしデータ数が事前に分からない場合は、無理に配列を使わず`Collection`オブジェクトや`Scripting.Dictionary`に軍配が上がります。これらは内部で効率的にメモリ管理を行ってくれるため、断片化を恐れる必要がありません。

賢いエンジニアの定石：
「まずコレクションに詰め込み、最後に `ReDim` でピッタリの配列に変換して処理する」というハイブリッド戦略が最も安定します。

‘ コレクションで動的に追加し、最後に配列へ変換する手法
Sub DynamicToStatic()
Dim col As New Collection
Dim v As Variant

‘ … ループで追加 …
col.Add “データ”

‘ 最後に配列へ変換（処理を配列で行うため）
Dim finalArray() As Variant
ReDim finalArray(1 To col.Count)

Dim i As Long
For i = 1 To col.Count
finalArray(i) = col(i)
Next i
End Sub

—

`ReDim`でよくあるエラーが「添字（インデックス）の範囲外」です。
VBAの配列は、宣言時に `(0 To 10)` と書けば0から始まりますが、`Option Base 1` が設定されていると1から始まります。

アドバイス：
常に `(1 To N)` のように開始位置を明示する癖をつけてください。これにより、Excelのシート行番号とのズレを防ぐことができ、デバッグの難易度が劇的に下がります。

—

1. ReDim Preserveをループ内に書くな！
2. 可能な限り、最初にサイズを決定せよ。
3. 数が不明ならコレクションを使い、最後に配列へ変換せよ。

VBAは古い言語ですが、そのメモリ管理を理解して扱うことで、現代のPCスペックを最大限に引き出す最強のツールに変わります。

最初は難しく感じるかもしれませんが、一度この「メモリを意識する感覚」を掴めば、あなたはもう「マクロ記録を使っていた頃」には戻れません。さあ、次はどんな巨大なデータを料理しましょうか？

応援していますよ。何かあればいつでも聞いてくださいね。