Sub 配列()
    Dim N(5) As Integer
    Range("A1:E10").ClearContents
    N(1) = 2
    N(2) = 3
    N(3) = 4
    N(4) = 5
    N(5) = 6
    Range("B" & N(0) + 8).Value = 9
    Range("B" & N(1)).Value = 10
    Range("B" & N(2)).Value = 11
    Range("B" & N(3)).Value = 12
    Range("B" & N(4)).Value = 13
    Range("B" & N(5)).Value = 14 
End Sub
--------------------------------------------------------------
Sub 二次元配列()
    Dim RC(5, 4) As Integer
    Dim i As Integer
    Dim i2 As Integer
    Range("A1:E10").ClearContents
    RC(1, 1) = 1
    RC(1, 2) = 2
    RC(1, 3) = 3
    RC(1, 4) = 4
    RC(2, 1) = 2
    RC(2, 2) = 3
    RC(3, 1) = 3
    RC(3, 2) = 4
    RC(4, 1) = 4 
    RC(5, 1) = 5
    For i = 1 To 5
       For i2 = 1 To 4
          Cells(i, i2).Value = RC(i, i2)     
       Next
    Next
    Cells(i + 3, i2 - 4).Value = RC(0, 1)
    Cells(i + 3, i2 - 3).Value = RC(1, 0)
End Sub
----------------------------------------------
Option Base 1
Sub インデックスを1から()
    Dim N(5) As Integer
    N(0) = 1
    N(1) = 2
    N(2) = 3
    N(3) = 4
    N(4) = 5
    N(5) = 6
End Sub
--------------------------------------------
Sub 任意のインデックス番号()
    Dim N(2 To 5) As Integer 
    N(2) = 3
    N(3) = 4
    N(4) = 5
    N(5) = 6
End Sub