Excel VBA 2次元配列の貼り付け

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

・プログラムで生成または処理された2次元配列のデータをExcelのセルに表示したい場合

・Excel外部で処理されたデータをExcelに持ち込み、可視化したい場合

Option Explicit

Sub PasteArrayToWorksheet()
    Dim myArray(1 To 3, 1 To 4) As Variant
    Dim i As Integer, j As Integer
    
    ' 2次元配列に初期値を設定
    For i = 1 To 3
        For j = 1 To 4
            myArray(i, j) = i * 10 + j
        Next j
    Next i
    
    ' 2次元配列をワークシートに貼り付け
    Range("A1").Resize(UBound(myArray, 1), UBound(myArray, 2)).Value = myArray
End Sub