【2026年7月最新】VBA配列の初期化完全ガイド｜ReDim・Preserve・Array・Eraseを業務で徹底解説

この記事の内容

1. 01VBAの配列とは何か――業務視点で押さえる基礎
2. 02固定長配列と可変長配列の宣言方法
3. 03Eraseで配列を初期化する
4. 04Array関数で配列を初期化する
5. 05ReDimで要素数を変更する
6. 06ReDim Preserveでデータを保持したまま拡張する
7. 07多次元配列の初期化と業務活用
8. 08よくあるエラーと対処法
9. 09Claude CodeでVBAコードを自動生成する
10. 10まとめ
11. FAQよくある質問

📚 用語解説

配列（はいれつ）：同じデータ型の複数の値を連続したメモリ領域に格納するデータ構造。VBAでは「Dim arr(9) As Integer」のように宣言し、arr(0)〜arr(9)の10個の要素を一括管理します。ループ処理と組み合わせると大量データを高速に一括操作できます。

' 固定長配列の宣言例
Dim scores(9) As Integer        ' 10要素（scores(0)〜scores(9)）
Dim names(4) As String          ' 5要素（names(0)〜names(4)）
Dim prices(11) As Double        ' 12要素（月別データ 12ヶ月分）

' 宣言と同時に値を格納する例
Dim monthlyBudget(11) As Long
Dim i As Integer
For i = 0 To 11
    monthlyBudget(i) = 100000  ' 全月100,000円で初期化
Next i

📚 用語解説

固定長配列：宣言時に要素数を指定する配列。Dim arr(9) As Integerとすると、arr(0)〜arr(9)の10要素が確保されます。プログラム実行中に要素数を変更できません。データ件数が事前に確定している場合に使用します。固定長配列にReDimを使おうとするとコンパイルエラーになります。

' 可変長配列の宣言例
Dim customerNames() As String   ' 宣言時は要素数なし
Dim salesData() As Double        ' 宣言時は要素数なし

' 後でReDimで要素数を指定して使う
Dim recordCount As Long
recordCount = 500  ' 実行時に件数が確定
ReDim customerNames(recordCount - 1)  ' 0〜499の500要素を確保
ReDim salesData(recordCount - 1)

' 以降は固定長配列と同様にアクセスできる
customerNames(0) = "田中商事株式会社"
salesData(0) = 1250000

📚 用語解説

可変長配列：宣言時に要素数を指定せず、実行時にReDimで動的に変更できる配列。Dim arr() As Stringのように括弧内を空にして宣言します。データ件数が事前に不明な場合や、処理中に件数が変わる場合に使用します。誤って固定長として宣言するとReDimができなくなるため、設計段階でどちらを使うか決めておくことが重要です。

For i = 0 To 9 と決め打ちするより、For i = LBound(arr) To UBound(arr) と書く習慣をつけると、Option Base の設定変更やReDimで要素数が変わった際もコードを直さずに済みます。特にReDim Preserveで繰り返し拡張する処理では、UBound(arr)でのみ正確な件数が分かるため必須です。

' 固定長配列のErase例
Dim scores(4) As Integer
scores(0) = 85: scores(1) = 92: scores(2) = 78
scores(3) = 88: scores(4) = 95

Debug.Print scores(0)  ' → 85

Erase scores  ' 全要素をリセット

Debug.Print scores(0)  ' → 0（リセットされた）
Debug.Print scores(4)  ' → 0（要素数は維持されている）

' Erase後も同じサイズで引き続き使える
scores(0) = 70
Debug.Print scores(0)  ' → 70

' 可変長配列のErase例（注意が必要）
Dim names() As String
ReDim names(4)  ' 5要素を確保
names(0) = "田中": names(1) = "佐藤": names(2) = "山田"

Debug.Print names(0)  ' → 田中

Erase names  ' メモリが完全に解放される

' ここでアクセスするとエラー！
' Debug.Print names(0)  ' → エラー9: 添え字が有効範囲にありません

' Erase後に再利用するにはReDimが必要
ReDim names(9)  ' 10要素で再確保
names(0) = "鈴木"  ' OK

可変長配列（Dim arr() As String）にEraseを使うと、配列のメモリが完全に解放されます。この後arr(0)にアクセスすると「添え字が有効範囲にありません（エラー番号9）」が発生します。Erase後は必ずReDimで再初期化してから使ってください。このパターンはVBAのバグで最もよく見かける原因の一つです。

' Array関数の基本例
Dim weekdays As Variant
weekdays = Array("月曜日", "火曜日", "水曜日", "木曜日", "金曜日", "土曜日", "日曜日")

' インデックスは0始まり
Debug.Print weekdays(0)  ' → 月曜日
Debug.Print weekdays(6)  ' → 日曜日

' 月名リストの例
Dim monthNames As Variant
monthNames = Array("1月", "2月", "3月", "4月", "5月", "6月", _
                   "7月", "8月", "9月", "10月", "11月", "12月")
Debug.Print monthNames(0)   ' → 1月（0始まり）
Debug.Print monthNames(11)  ' → 12月

' 数値の配列
Dim taxRates As Variant
taxRates = Array(0.08, 0.10, 0.10)  ' 2014年・2019年・現在の消費税率

📚 用語解説

Array関数：VBA組み込みの関数。括弧内にカンマ区切りで値を列挙すると、それらを格納したVariant型の配列を返します。戻り値はVariant型の変数でのみ受け取れます。インデックスはデフォルトで0始まりですが、Option Base 1を指定すると1始まりになります。

' NG例：String型で受け取ろうとするとエラー
' Dim wrongVar() As String
' wrongVar = Array("A", "B", "C")  ' エラー13: 型が一致しません

' OK例：Variant型で受け取る
Dim correctVar As Variant
correctVar = Array("A", "B", "C")  ' 正常動作

' UBound・LBoundで要素数を確認できる
Debug.Print LBound(correctVar)  ' → 0
Debug.Print UBound(correctVar)  ' → 2（3要素なのでインデックス0〜2）

' Forループで全要素にアクセス
Dim i As Integer
For i = LBound(correctVar) To UBound(correctVar)
    Debug.Print correctVar(i)  ' A, B, C の順に出力
Next i

' 業務での活用例：ステータスコードのマスター配列
Sub ProcessOrders()
    ' 受注ステータスのマスター配列（Array関数で一括定義）
    Dim statusCodes As Variant
    statusCodes = Array("未処理", "処理中", "出荷済", "完了", "キャンセル")

    ' カテゴリマスター
    Dim categories As Variant
    categories = Array("電子部品", "機械部品", "消耗品", "備品", "サービス")

    ' シートのデータを1件ずつ確認してステータスを検証
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("受注データ")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim r As Long
    For r = 2 To lastRow
        Dim status As String
        status = ws.Cells(r, 3).Value  ' C列のステータス

        ' マスター配列に一致するか確認
        Dim isValid As Boolean
        isValid = False
        Dim s As Integer
        For s = LBound(statusCodes) To UBound(statusCodes)
            If status = statusCodes(s) Then
                isValid = True
                Exit For
            End If
        Next s

        If Not isValid Then
            ws.Cells(r, 3).Interior.Color = RGB(255, 200, 200)  ' 無効値を赤くハイライト
        End If
    Next r

    MsgBox "ステータス検証完了"
End Sub

配列をLoop内でのマッチングに使うだけでなく、Join関数と組み合わせると「1月,2月,...,12月」のようなカンマ区切り文字列に変換できます。また「Filter(配列, 検索文字)」関数と組み合わせると、配列から条件に合う要素だけを抽出した新しい配列を生成できます。これらの組み合わせが業務マクロでよく使われる実践パターンです。

' ReDimの基本使用例
Dim customerData() As String  ' 可変長配列を宣言

' 実行時にデータ件数が確定する
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("顧客リスト")
Dim rowCount As Long
rowCount = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row - 1  ' ヘッダーを除いた件数

' 確定した件数でReDim
ReDim customerData(rowCount - 1)  ' 0〜rowCount-1のrowCount件を確保

' データを格納
Dim i As Long
For i = 0 To rowCount - 1
    customerData(i) = ws.Cells(i + 2, 1).Value  ' 2行目からデータ読み込み
Next i

Debug.Print "取得件数: " & (UBound(customerData) + 1) & "件"

' 2次元配列のReDim
Dim salesMatrix() As Double
ReDim salesMatrix(rowCount - 1, 3)  ' 行数×4列の2次元配列

📚 用語解説

ReDim：可変長配列（要素数なしで宣言した配列）の要素数を実行時に設定・変更するためのVBA命令。ReDimを実行するたびに配列の全要素がデフォルト値（数値は0、文字列は空文字）にリセットされます。データを保持したまま拡張したい場合はReDim Preserveを使います。固定長配列（Dim arr(9) As型）にReDimを使おうとするとコンパイルエラーになります。

' ReDimでデータが消える例
Dim arr() As Integer
ReDim arr(4)  ' 5要素を確保
arr(0) = 10: arr(1) = 20: arr(2) = 30

Debug.Print arr(0)  ' → 10

ReDim arr(9)  ' 再度ReDim（要素数を変更）

Debug.Print arr(0)  ' → 0（データが消えた！）

' データを保持したまま拡張したい場合はReDim Preserveを使う
ReDim arr(4)
arr(0) = 10: arr(1) = 20: arr(2) = 30

ReDim Preserve arr(9)  ' Preserveキーワード付き
Debug.Print arr(0)  ' → 10（データが保持されている）

' 多次元配列のReDim例
Dim matrix() As Double

' 顧客数が確定してから2次元配列を確保
Dim customerCount As Long
customerCount = 100  ' 100顧客

' 100行×12列（月別売上）の2次元配列
ReDim matrix(customerCount - 1, 11)

' データを格納
matrix(0, 0) = 1200000   ' 顧客0番の1月売上
matrix(0, 1) = 980000    ' 顧客0番の2月売上
matrix(99, 11) = 2100000 ' 顧客99番の12月売上

Debug.Print "行数: " & (UBound(matrix, 1) + 1)  ' → 100
Debug.Print "列数: " & (UBound(matrix, 2) + 1)  ' → 12

' ReDim Preserveの基本例
Dim results() As String
Dim count As Long
count = 0

' データを1件ずつ追加していく処理（件数が実行時に増える例）
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("データ")
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

Dim r As Long
For r = 2 To lastRow
    ' 条件に合うデータだけ配列に追加（例：売上100万円以上）
    If ws.Cells(r, 2).Value >= 1000000 Then
        ReDim Preserve results(count)  ' 1件分拡張（データ保持）
        results(count) = ws.Cells(r, 1).Value
        count = count + 1
    End If
Next r

Debug.Print "合格件数: " & count & "件"
If count > 0 Then
    Debug.Print "最初の合格顧客: " & results(0)
End If

' 2次元配列のReDim Preserve制約
Dim arr() As Integer
ReDim arr(2, 9)  ' 3行×10列

arr(0, 0) = 100  ' データを格納

' NG例：1次元目（行）を拡張しようとするとエラー
' ReDim Preserve arr(4, 9)  ' エラー！ 1次元目は変更できない

' OK例：2次元目（列）を拡張するのはOK
ReDim Preserve arr(2, 14)  ' 3行×15列に拡張（データ保持）
Debug.Print arr(0, 0)  ' → 100（保持されている）

' 行方向に動的拡張したい場合は転置して設計する
' arr(列, 行) として、行方向の拡張を2次元目で表現する

2次元配列arr(行, 列)に対して「ReDim Preserve arr(新しい行数, 列数)」と書くとエラーになります。Preserveで変更できるのは最後の次元（列方向）のみです。行方向に動的に追加したい場合は、配列の定義を転置して「arr(列インデックス, 行インデックス)」の形にするか、先に行数の上限を大きめにReDimしておいて最後にPreserveで縮小する設計を使ってください。

' 高速パターン：Preserveを1回だけ呼ぶ
Dim results() As String
Dim maxRows As Long
maxRows = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' 上限を最大件数で先に確保（Preserveなし）
ReDim results(maxRows - 1)

Dim actualCount As Long
actualCount = 0
Dim r As Long
For r = 2 To maxRows
    If ws.Cells(r, 2).Value >= 1000000 Then
        results(actualCount) = ws.Cells(r, 1).Value
        actualCount = actualCount + 1
    End If
Next r

' 最後に実件数でPreserveを1回だけ実行（余分な領域を切り落とす）
If actualCount > 0 Then
    ReDim Preserve results(actualCount - 1)
End If
Debug.Print "合格件数: " & actualCount

' 2次元固定長配列
Dim salesData(99, 3) As Double   ' 100行×4列（顧客ID、1Q、2Q、3Q）

' 2次元可変長配列
Dim dynamicData() As String
Dim rowCount As Long, colCount As Long
rowCount = 200: colCount = 5
ReDim dynamicData(rowCount - 1, colCount - 1)

' Eraseで2次元配列を初期化
' 固定長なら全要素リセット、可変長なら解放
Erase salesData    ' 固定長：全要素が0にリセット（サイズ維持）
Erase dynamicData  ' 可変長：解放（再利用にはReDimが必要）

📚 用語解説

2次元配列：2つの添字（インデックス）でアクセスする配列。arr(行番号, 列番号)の形で要素を指定します。Excelのシート（行×列）と同じ構造なので、セル範囲データの操作に最適です。VBAでは最大60次元まで定義できますが、実務では2次元がほとんどです。

' 高速パターン：シートデータを一括配列に読み込む
Sub FastArrayProcess()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("売上データ")

    ' 最終行を取得
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Range.Valueで一括読み込み（1回のセルアクセスで全データ取得）
    Dim data As Variant
    data = ws.Range("A2:D" & lastRow).Value  ' A2:D列×lastRow行を一発取得
    ' dataは(1〜lastRow-1, 1〜4)の2次元Variant配列（1始まり）

    ' 配列上で処理（セルへのアクセスなし＝高速）
    Dim result() As Double
    ReDim result(1 To lastRow - 1, 1 To 2)  ' 結果格納用

    Dim r As Long
    For r = 1 To lastRow - 1
        result(r, 1) = data(r, 1)          ' 顧客ID
        result(r, 2) = data(r, 2) * 1.1    ' 売上に10%加算
    Next r

    ' 一括書き込み（1回のセルアクセスで全データ書き出し）
    Dim wsOut As Worksheet
    Set wsOut = ThisWorkbook.Sheets("結果")
    wsOut.Range("A2").Resize(lastRow - 1, 2).Value = result

    MsgBox "処理完了（" & lastRow - 1 & "件）"
End Sub

ws.Range("A1:C10").Valueで取得した2次元Variant配列のインデックスは、1始まり（arr(1,1)〜arr(10,3)）になります。通常の配列宣言（Dim arr(9)）の0始まりとは異なるので注意してください。LBound(data, 1)でもLBound(data, 2)でも「1」が返ります。この仕様を知らずにarr(0,0)でアクセスしようとするとエラー9が発生します。

' エラー9の典型パターンと対処法

' パターン1：ReDim前にアクセス
Dim arr() As Integer
' arr(0) = 10  ' ← エラー9！　ReDimがまだ
ReDim arr(9)
arr(0) = 10   ' OK

' パターン2：Erase後にアクセス
ReDim arr(9)
arr(0) = 50
Erase arr     ' 可変長配列は解放される
' arr(0) = 10  ' ← エラー9！　再度ReDimが必要
ReDim arr(9)
arr(0) = 10   ' OK

' パターン3：インデックスオーバー
ReDim arr(4)  ' 0〜4の5要素
' arr(5) = 99  ' ← エラー9！　上限は4
arr(4) = 99   ' OK

' 安全なアクセスパターン
If UBound(arr) >= 5 Then
    arr(5) = 99
End If

「この配列にデータは入っているか」を確認したい場合、VBAには専用の関数がないため、On Error Resume Nextを使うか、カウンター変数で件数を管理するのが一般的です。配列がReDimされているかどうかを確認するには「If Not IsEmpty(arr) Then」（Variant型の場合）または件数管理変数を使ってください。

' 安全な配列処理の定型パターン
Sub SafeArrayProcess()
    Dim data() As String
    Dim count As Long
    count = 0  ' 件数管理変数（配列の有効要素数を別途管理）

    ' ...データ収集処理...
    ' count > 0 の場合のみ、data(0)〜data(count-1)が有効

    ' 件数チェックしてから処理
    If count = 0 Then
        MsgBox "データがありません"
        Exit Sub
    End If

    ' 安全にループ
    Dim i As Long
    For i = 0 To count - 1  ' countで管理（UBoundより安全）
        Debug.Print data(i)
    Next i
End Sub

' Claude Codeへの指示例（入力テキスト）
' 「ExcelのSheet1にあるA列（顧客名）B列（売上額）のデータを
'  顧客名ごとに売上を合算してSheet2に出力するVBAマクロを、
'  配列とDictionaryを使って高速に書いてください。
'  データ件数は毎月変わります。」
'
' → Claude Codeが以下のような最適なコードを自動生成
'    （実際にはもっと詳細なコメント付きで生成される）

Sub SumSalesByCustomer()
    ' 可変長配列+Dictionaryで顧客別集計
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")

    Dim lastRow As Long
    lastRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row

    ' 一括読み込み（高速化）
    Dim data As Variant
    data = ws1.Range("A2:B" & lastRow).Value

    ' Dictionaryで顧客別集計
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    Dim r As Long
    For r = 1 To UBound(data, 1)
        Dim key As String
        key = CStr(data(r, 1))
        If dict.Exists(key) Then
            dict(key) = dict(key) + data(r, 2)
        Else
            dict.Add key, data(r, 2)
        End If
    Next r

    ' 結果を配列に格納して一括書き出し
    Dim resultCount As Long
    resultCount = dict.Count
    Dim results() As Variant
    ReDim results(resultCount - 1, 1)

    Dim i As Long
    i = 0
    Dim k As Variant
    For Each k In dict.Keys
        results(i, 0) = k
        results(i, 1) = dict(k)
        i = i + 1
    Next k

    ws2.Range("A2").Resize(resultCount, 2).Value = results
    MsgBox "集計完了：" & resultCount & "顧客"
End Sub

コードが生成されたら「なぜReDimではなくDictionaryを使ったのか」「可変長配列を選んだ理由は？」と追加で聞くことができます。Claude Codeは設計判断の根拠も日本語で説明してくれるので、コードを読むだけでなく、なぜそう書くのかの理解も同時に深まります。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？