繰り返し処理（For = To...Next） ステートメント



For counter = start To end Step step

start から end までの回数だけ処理を繰り返します。
項目 説明 備考
counter カウンタに変数を指定 必須
start 初期値 必須
end 最終値 必須
step 加算される値 省略可　（既定値：1）
引数一覧

stepは負の数を指定することにより大きい値から小さい値までの繰り返し処理をすることができます。

例）A列１行目～最終行まで処理を繰り返す
Sub FtN()
    'i：counter , LR：end
    Dim i As Long, LR As Long
        'A列最終行数を取得
        LR = Cells(Rows.Count, 1).End(xlUp).Row
            '1～LRまで処理を繰り返す
            For i = 1 To LR
                Cells(i, 2) = Cells(i, 1) + 1
            Next i
End Sub


B列にA列＋１の処理がされました。


例）A列で空白セルであれば行を削除する
Sub FtN2()
    'i：counter
    Dim i As Long
            '10～1行まで処理を繰り返す
            For i = 10 To 1 Step -1
                '空白なら行を削除する
                If Cells(i, 1) = Empty Then
                Cells(i, 1).EntireRow.Delete
                End If
            Next i
End Sub


上からカウントすると連続条件合致した際にスルーされてしまうので下からカウントして処理をしています。
ラベル: