2次元配列にセルのデータを格納するExcelマクロ:エクセルマクロ・Excel VBAの使い方/配列

Sub 選択されているセル範囲から新規ブックを作成する() Dim arr As Variant Dim r As Long Dim c As Long arr = Selection.Value ' ←ここで配列にデータを格納 If IsArray(arr) Then r = UBound(arr, 1) c = UBound(arr, 2) Else r = 1 c = 1 End If Workbooks.Add Range("A1", Cells(r, c)).Value = arr End Sub 例えば、B2:G11セルが選択させた状態で上記のマクロを実行すると、新規ブックが作成され、その新規ブックのA1:F10セルに、元のブックのB2:G11セルのデータが入力されます。 サンプルマクロの解説 以下の1行で配列・arrにデータが格納されます。 arr = Selection.V