For Nextステートメント、Do Loopステートメント
For 変数 = 初期値 To 終了値
処理
Next 変数
Do 条件
処理
Loop
表の1行目から10行目までを続けて処理する場合など、特定の処理を繰り返すにはFor NextステートメントやDo Loopステートメントを使います。
For Nextでは、「i」などの変数を用意して、変数の初期値と終了値を指定します。すると、初期値から1ずつ加算しながら、終了値になるまで繰り返します。終了値を指定した後に、加算する値の大きさを「Step 3」や「Step －1」などと指定して、「3ずつ増やしながら繰り返す」や「1ずつ減らしながら繰り返す」といった指定も可能です。
Do Loopでは、Do（またはLoop）に続けて繰り返しの条件を指定します。WhileやUntilを利用して、例えば「While i < 10」（iが10未満の間は繰り返す）、「Until i = 10」（iが10になるまで繰り返す）といった具合に指定します。
1行目から10行目まで1行おきに入力を繰り返す
Sub Sample()
Dim i As Long
For i = 1 To 10 Step 2
Cells(i, 1).Value = “ジャム＆モモ”
Next i
End Sub
実行結果
IT開発関連書とビジネス書が豊富な翔泳社の通販『SEshop』
dポイントがどんどんたまる【d払いポイントGETモール】
業界最安値宣言！高性能・低価格のパソコン通販は【UsedFun】
リラクゼーションをお得に体験!ご予約はEPARKで!
【じゃらん】国内25,000軒の宿をネットで予約OK！2％ポイント還元！
【早い者勝ち！】.com／.net／.jp ドメイン取るならお名前.com
