Excel VBAのFor…Nextステートメントの使い方の基本

2025.06.082026.01.27

Excelでの作業を効率化したいと考えているあなたへ。VBA（Visual Basic for Applications）を使えば、繰り返しの作業を自動化することができます。特に、For…Nextステートメントは、決まった回数だけ処理を繰り返す際に非常に便利な機能です。今回は、初心者の方でもわかりやすいように、実際の例を交えながら解説します。

For…Nextステートメントとは？
実際の例で学ぼう
よくある質問や疑問
まとめ

For…Nextステートメントとは？

Excelのイメージ

For…Nextステートメントは、指定した回数だけ同じ処理を繰り返すための命令です。例えば、セルに同じ値を入力したい場合や、特定の範囲のデータを処理したい場合に使用します。

基本構文は以下の通りです

vba

For counter = 開始値 To 終了値

    ' 繰り返したい処理

Next counter

ここで、counterは繰り返しの回数を数えるための変数で、開始値から終了値まで順番に処理を実行します。

このサイトをチップで応援

￥100ありがとう￥300助かった！￥1,500神記事！

実際の例で学ぼう

では、実際にExcelのセルに1から10までの数字を入力するマクロを作成してみましょう。

vba

Sub 入力例()

    Dim i As Integer

    For i = 1 To 10

        Cells(i, 1).Value = i

    Next i

End Sub

このマクロを実行すると、セルからセルまでに1から10までの数字が順番に入力されます。

Stepを使ってカウントの増減を調整する

Stepを使用すると、カウントの増減を自由に設定できます。例えば、2ずつ増やして処理を行いたい場合は、以下のように記述します

vba

Sub Step例()

    Dim i As Integer

    For i = 1 To 10 Step 2

        Cells(i, 1).Value = i

    Next i

End Sub

このマクロでは、セル、セル、セル、セル、セルにそれぞれ1, 3, 5, 7, 9が入力されます。

Exit Forでループを途中で終了する

Exit Forを使用すると、条件に応じてループを途中で終了させることができます。例えば、A列の値が50以上になった時点で処理を終了する場合は、以下のように記述します

vba

Sub ExitFor例()

    Dim i As Integer

    For i = 1 To 10

        If Cells(i, 1).Value >= 50 Then

            MsgBox "50以上の値が見つかりました。"

            Exit For

        End If

    Next i

End Sub

このマクロでは、A列の値が50以上になった時点でメッセージボックスが表示され、ループが終了します。

ネスト（入れ子）を使って複雑な処理を行う

複数のFor…Nextステートメントを組み合わせて、より複雑な処理を行うことも可能です。例えば、2次元のセル範囲に対して処理を行いたい場合は、以下のように記述します

vba

Sub ネスト例()

    Dim i As Integer, j As Integer

    For i = 1 To 5

        For j = 1 To 5

            Cells(i, j).Value = i * j

        Next j

    Next i

End Sub

このマクロでは、からE5までのセルに掛け算の結果が入力されます。