Excel VBA 既存の2次元配列のデータを初期化して新にデータ格納する方法

以下のようなシーンで利用されます。

・既存の2次元配列のデータをクリアして新しいデータを格納する場合

・関数やサブルーチン内で動的に生成された2次元配列に初期値を設定する場合

Option Explicit

Sub InitializeArray()
    Dim myArray() As Variant
    Dim numRows As Integer, numCols As Integer
    Dim i As Integer, j As Integer
    
    ' 行数と列数を指定
    numRows = 3
    numCols = 4
    
    ' 配列定義
    ReDim myArray(1 To numRows, 1 To numCols)
    
    ' 配列に値を格納
    For i = 1 To numRows
        For j = 1 To numCols
            myArray(i, j) = i * 10 + j
        Next j
    Next i
    
    ' データの表示
    For i = 1 To numRows
        For j = 1 To numCols
            Debug.Print myArray(i, j)
        Next j
    Next i

    ' 配列再定義
    ReDim myArray(1 To numRows, 1 To numCols)
    
    ' データの表示
    For i = 1 To numRows
        For j = 1 To numCols
            Debug.Print myArray(i, j)
        Next j
    Next i
End Sub