[Excel VBA] ループ処理・構文（Do While - Loop、For - Next）

Excel VBAでループ処理を記述する構文

条件判定でループを行う場合（Do While ~ Loop）

条件判定を行ってループの継続・終了を判定する場合は、

Do While ~ Loop文を使用します。

サンプル

セル(1,1)から縦に入力がある分だけループしてすべて””（ブランク）で置き換える。

Dim row as Integer
Dim col as Integer
row = 1
col = 1

Do While Cells(row, col) <> ""
Cells(row, col) = ""
row = row + 1
Loop

回数判定でループを行う場合（For ~ Next）

回数判定でループの継続・終了を判定する場合は、For ~ Next文を使用します。

サンプル

セル(1,1)から縦に５セル分ループして””（ブランク）で置き換える。

Dim row as Integer
Dim col as Integer
col = 1

For row = 1 To 5
Cells(row, col) = ""
Next row