Sub ArrayFromSheet()
Dim array As Variant
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を指定
' シートの範囲を配列に読み込む
array = ws.Range("A1:B3")' A1からB3の範囲を配列に格納
End Sub
固定サイズの配列を宣言する方法
Sub FixedSizeExample()
Dim myArray(1 To 3, 1 To 2) As Variant
End Sub
Sub VariantArrayExample()
Dim myArray(1 To 3, 1 To 2) As Variant
myArray(1, 1) = 1
myArray(1, 2) = ":1です"
myArray(2, 1) = 2
myArray(2, 2) = ":2です"
myArray(3, 1) = 3
myArray(3, 2) = ":3です"
Debug.Print myArray(1, 1)
Debug.Print myArray(1, 2)
Debug.Print myArray(2, 1)
Debug.Print myArray(2, 2)
Debug.Print myArray(3, 1)
Debug.Print myArray(3, 2)
End Sub
実行例
ReDimを使った方法
ReDimは、配列の大きさを変更することができる方法です。
Sub CreateEmptyArrayReDim()
Dim myArray() As Variant ' 動的配列の宣言
Dim rows As Integer
Dim cols As Integer
' 行数と列数を指定
rows = 3
cols = 2
' 配列のサイズを指定
ReDim myArray(1 To rows, 1 To cols)
Debug.Print myArray(1, 1)
Debug.Print myArray(1, 2)
Debug.Print myArray(2, 1)
Debug.Print myArray(2, 2)
Debug.Print myArray(3, 1)
Debug.Print myArray(3, 2)
End Sub
コメント