<Array to Sheet> 「配列」を「シート」へ

「二次元配列」を「シート」に入れるプロシージャです。

'*******
'* 「二次元配列」を「シート」に入れるプロシージャ。20230707
'* SheetName：シート名前
'* myArray：二次元配列。参照渡し。配列は、モジュールレベル変数としている。
'* FirstRange：配列を入れる先頭のRange
Private Sub array_to_sheet(ByRef myArray As Variant, ByVal FirstRange As Range)
    FirstRange.Resize(UBound(myArray), UBound(myArray, 2)) = myArray
End Sub

以下が使用例です。

Dim arr() As Variant

' シート（表）を配列に入れ、配列をシートに記入。テストプロシージャ。
Private Sub test､表を配列に入れる2()
    ' (SheetName, ByRef arr, Optional RejectRw = 0)
    Call sheet_to_array("TEST", arr)
    Call array_to_sheet(arr, Worksheets("TEST").Range("H10"))
End Sub

結果が以下です。元々、入力されていたデータ　C5:F10　を、配列に入れて、その配列を、H10　に入れています。