【ExcelVBA】for文

■構文

　For カウンタ名 = 初期値 To 到達値

　　　処理

　Next カウンタ名

■例

　Sub sample1()

　　　Dim arr() As Variant

　　　Dim i As Integer

　　　Dim str As String

　　　arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

　　　For i = 0 To 9

　　　　　str = str & arr(i) & ", "

　　　Next i

　　　MsgBox str

　End Sub

■Stepの使い方

　For カウンタ名 = 初期値 To 到達値 Step 増減数

　　　処理

　Next カウンタ名

　　※増減数が1の場合は「Step 増減数」の部分は省略可

　Sub sample2()

　　　Dim arr() As Variant

　　　Dim i As Integer

　　　Dim str As String

　　　arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

　　　For i = 0 To 9 Step 2

　　　　　str = str & arr(i) & ", "

　　　Next i

　　　MsgBox str

　End Sub

　Stepステートメントでマイナス値を指定すると、デクリメント（マイナス）で

　逆順にループを回すことができる。

　Sub sample3()

　　　Dim arr() As Variant

　　　Dim i As Integer

　　　Dim str As String

　　　arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

　　　For i = 0 To 9 Step -2

　　　　　str = str & arr(i) & ", "

　　　Next i

　　　MsgBox str

　End Sub