Excel VBA 2次元配列redim

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

・2次元配列のサイズが実行時に変動する場合。

・動的にデータを収集するプロセスで、2次元配列のサイズが確定していない場合。

Option Explicit

Sub ResizeArray()
    Dim myArray() As Variant
    Dim i As Integer, j As Integer
    
    ' 2行3列の2次元配列を作成
    ReDim myArray(1 To 2, 1 To 3)
    
    ' データの格納
    For i = 1 To 2
        For j = 1 To 3
            myArray(i, j) = i * 10 + j
        Next j
    Next i
  
    ' データの表示
    For i = 1 To UBound(myArray, 1)
        For j = 1 To UBound(myArray, 2)
            Debug.Print myArray(i, j)
        Next j
    Next i
End Sub