「二次元配列」を「シート」に入れる
「二次元配列」を「シート」に入れるプロシージャです。
'*******
'* 「二次元配列」を「シート」に入れるプロシージャ。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 に入れています。
「シート」を「配列」に入れるプロシージャ
Call sheet_to_array(“TEST”, arr)
は、以下を参照してください。