VBAのEraseで配列のデータをクリアする方法をわかりやすく解説

Sub TestEraseStaticArray()
    Dim arr(1 To 5) As Integer
    Dim i As Integer
    
    ' 配列にデータを設定
    For i = 1 To 5
        arr(i) = i * 10
    Next i

    ' Eraseでリセット
    Erase arr

    ' 結果を表示
    MsgBox "arr(1) の値: " & arr(1) ' 0 になる
End Sub

Sub TestEraseDynamicArray()
    Dim arr() As Integer
    Dim i As Integer
    
    ' 動的配列を再定義
    ReDim arr(1 To 5)
    
    ' 配列にデータを設定
    For i = 1 To 5
        arr(i) = i * 10
    Next i

    ' Eraseでメモリ解放
    Erase arr

    ' 配列が空になったため、再利用時は再度 ReDim が必要
    ReDim arr(1 To 3)
    MsgBox "配列のサイズを変更しました（1～3）"
End Sub

Sub LoadAndClearArray()
    Dim arr() As Variant
    Dim lastRow As Integer
    
    ' 最終行を取得
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    ' 配列にセル範囲を格納
    arr = Range("A1:A" & lastRow).Value

    ' 処理を実行
    MsgBox "データを配列に格納しました。"

    ' 配列をクリア
    Erase arr

    MsgBox "配列をクリアしました。"
End Sub