【VBA】ForEachとArrayによる簡単な繰り返しの例

例

コード

Sub arraytest()

    Dim myArray As Variant
    Dim myHensu
    
    myArray = Array(1, 3, 6, 10)
    
    For Each myHensu In myArray
    Cells(myHensu, 1) = myHensu
    Next myHensu
    
End Sub

実行結果

類似例①

コード：Arrayをわざわざ別にせず、ForEachの場所で定義。

Sub arraytest()

    Dim myHensu
    
    For Each myHensu In Array(1, 3, 6, 10)
    Cells(myHensu, 1) = myHensu
    Next myHensu
    
End Sub

結果

一番最初の例に同じ。

類似例②

コード：Arrayを2つ作成しForEach2回ループ。

Sub arraytest()

    Dim myArray1, myArray2 As Variant
    Dim myHensu1, myHensu2
    
    myArray1 = Array(1, 3, 6, 10)
    myArray2 = Array(1, 2, 3, 4, 5)
    
    For Each myHensu1 In myArray1
        For Each myHensu2 In myArray2
        Cells(myHensu1, myHensu2) = myHensu1 * myHensu2
        Next myHensu2
    Next myHensu1
        
End Sub

結果