マクロで配列を使用する

Excel2013のマクロで配列を使用します。配列とは複数の箱が並んでいるようなイメージで、その箱に数値や文字を入力しまとめて利用できます。

配列で文字を使用したサンプルです。４個の配列に文字を代入しておき、それをセルに表示させます。

Sub MyHairetu()
    Dim h(4) As String
    Dim i As Integer
 
    h(0) = "佐久間"
    h(1) = "小森"
    h(2) = "三山"
    h(3) = "大久保"
 
    For i = 0 To 3
        Cells(i + 1, 2) = h(i)
    Next
End Sub

実行結果です。

次のように配列に代入することもできます。

Sub MyHairetu()
    Dim h As Variant
    Dim i As Integer
  
    h = Array("佐久間", "小森", "三山", "大久保")
  
    For i = 0 To 3
        Cells(i + 1, 2) = h(i)
    Next
End Sub

配列で数値を使用したサンプルです。

Sub MyHairetu()
    Dim h(4) As Long
    Dim i As Integer
   
    For i = 0 To 3
        h(i) = i * 10
    Next
   
    For i = 0 To 3
        Cells(i + 1, 2) = h(i)
    Next
End Sub

配列で数値を使用した結果です。