Sub 配列()
Dim arry(5, 2) As Variant
Dim val As Variant
Dim gyou As Long
Dim keta As Long
Dim i As Integer
Dim j As Integer
arry(1, 1) = 100
arry(1, 2) = "あいうえお"
arry(2, 1) = 200
arry(2, 2) = "かきくけこ"
arry(3, 1) = 300
arry(3, 2) = "さしすせそ"
arry(4, 1) = 400
arry(4, 2) = "たちつてと"
arry(5, 1) = 500
arry(5, 2) = "なにぬねの"
For Each val In arry
Debug.Print val
Next
gyou = UBound(arry, 1)
keta = UBound(arry, 2)
For i = 1 To gyou
For j = 1 To keta
Debug.Print arry(i, j)
Next
Next
End Sub
2次元の配列をeachを使って、出力しました。その結果は配列で言えば縦方向が
優先して出力する。終わったら次のカラムへ。普通に配列を考える場合は
横方向へ考えることが多いと思うので、2重のforで書いた方のイメージに近いと
思います。