シートのデータを配列に格納する

今回はシートのデータを配列に格納する方法についてメモしておきます。

ループで格納する

まずはアナログにループさせて順番に格納させます。

実行プログラム

Sub Sample3_4_1()

    Dim varArray(1 To 3, 1 To 4) As Variant
    Dim i                        As Integer
    Dim j                        As Integer

    For i = 1 To 3
        For j = 1 To 4
            varArray(i, j) = Worksheets("Sheet1").Cells(i, j).Value
        Next
    Next

End Sub

Sub Sample3_4_1()

Dim varArray(1 To 3, 1 To 4) As Variant

Dim i As Integer

Dim j As Integer

For i = 1 To 3

For j = 1 To 4

varArray(i, j) = Worksheets("Sheet1").Cells(i, j).Value

End Sub

シート

格納後

一度に格納する

Resizeプロパティを使うことで、同じ結果を得ることができます。

実行プログラム

Sub Sample3_4_2()

    Dim varArray As Variant

    varArray = Worksheets("Sheet1").Cells(1, 1).Resize(3, 4).Value

End Sub

Sub Sample3_4_2()

Dim varArray As Variant

varArray = Worksheets("Sheet1").Cells(1, 1).Resize(3, 4).Value

End Sub