VBAのPreserveで動的配列のデータを保持する方法をわかりやすく解説

Sub PreserveExample()
    Dim arr() As Integer
    Dim i As Integer
    
    ' 配列の初期化（3要素）
    ReDim arr(1 To 3)
    For i = 1 To 3
        arr(i) = i * 10
    Next i
    
    ' 配列サイズを変更（5要素に拡張）
    ReDim Preserve arr(1 To 5)
    arr(4) = 40
    arr(5) = 50
    
    ' 結果を表示
    For i = 1 To 5
        Debug.Print arr(i)
    Next i
End Sub

Sub StoreCellValues()
    Dim arr() As String
    Dim lastRow As Integer, i As Integer
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim arr(1 To lastRow)
    
    ' A列のデータを配列に格納
    For i = 1 To lastRow
        arr(i) = Cells(i, 1).Value
    Next i
    
    ' 配列を拡張して新しいデータを追加
    ReDim Preserve arr(1 To lastRow + 1)
    arr(lastRow + 1) = "追加データ"
    
    ' A列に再度書き戻す
    For i = 1 To UBound(arr)
        Cells(i, 2).Value = arr(i)
    Next i
End Sub

Sub MultiDimPreserve()
    Dim arr() As Integer
    Dim i As Integer, j As Integer
    
    ' 2次元配列（1次元目は変更不可）
    ReDim arr(1 To 2, 1 To 3)
    
    ' データを格納
    For i = 1 To 2
        For j = 1 To 3
            arr(i, j) = i * j
        Next j
    Next i
    
    ' 次元1を変更しようとするとエラーになる
    ' ReDim Preserve arr(1 To 3, 1 To 3) ' ←エラー

    ' 次元2の拡張のみ可能
    ReDim Preserve arr(1 To 2, 1 To 5)
End Sub

Sub SafePreserve()
    Dim arr() As Integer
    Dim i As Integer
    
    On Error Resume Next
    ReDim Preserve arr(1 To 5)
    
    If Err.Number <> 0 Then
        MsgBox "エラー発生: " & Err.Description, vbExclamation, "エラー"
        Err.Clear
    Else
        MsgBox "配列を正常に拡張しました。"
    End If
End Sub