VBA For Next文の使い方完全ガイド｜ループ処理と抜ける方法を解説

「エクセルを使用していて、同じ処理を効率的に処理したい。」
このように悩んでいませんか？

・Excelで同じ処理を繰り返し行いたい！

・特定の範囲やデータに対して効率的に操作を加えたい！

その場合は、VBAの「For Next文」を
使用すると解決します！

この記事では、VBAのFor Next文を使った繰り返し処理の基礎から、応用的な使用例までを詳しく解説します。

VBAのFor Nextループは、指定した回数の繰り返し処理や、セルやフォルダ内のデータ取得を簡単に自動化できます。
特定の条件でループをスキップしたり、途中で終了することも可能です。
効率的に繰り返し処理を行い、作業時間を大幅に短縮できます。

この記事を読むだけで、あなたもすぐにVBAのFor Next文を使いこなせるようになります！
ぜひご覧ください。

【　この記事の概要　】

この記事を読むと「できるようになる」こと

この記事を読むことで、次のことができるようになります。

VBAのFor Next文とは？ | 繰り返し処理の種類をご紹介

VBAにはさまざまな繰り返し処理があり、For Next文はその中でも事前に決められた回数だけ処理を繰り返す基本的な構文です。

Excelシート上でセルや範囲に対して繰り返し処理を行う場合に特に役立ちます。

また、「条件に応じてループを途中で抜ける方法」や、「特定の条件でスキップする方法」も簡単に実装でき、柔軟な処理が可能です。

次に、VBAで使用できる繰り返し処理の種類を詳しく見ていきましょう。

VBAにおける繰り返し処理の種類

VBAのFor Next文の基本を解説

VBAのFor Next文は、指定した回数だけ繰り返し処理を行うために使われる基本構文です。

この構文を使えば、Excelでのセルの操作や特定の範囲に対する繰り返し処理を簡単に自動化できます。

For Next文の基本構文

この構文を使えば、同じ処理を繰り返し適用することが簡単にできます。

より詳しい情報は、Microsoft公式 – For…Next ステートメントを参照してみてください。

VBA For Next文で繰り返し処理を行う際に「よく使われる機能」一覧

VBAのFor Next文は、繰り返し処理の基本です。

ここでは、よく使われる機能とその使用方法を、具体的なコード例を交えて詳しく解説します。

⇒ 具体的なFor Next文の使用例は「VBAのFor Next文の使用例をご紹介」で紹介しています。

よく使われる機能1: 基本的なFor Next文の宣言方法

以下のコードは、セル「A1」から「A10」に「1」から「10」までの数値を順に入力するシンプルな繰り返し処理の例です。

Sub FillCellsWithForLoop()
    For i = 1 To 10
        Cells(i, 1).Value = i
    Next i
End Sub

このコードは、Excelシート上で「A1」から「A10」のセルに「1」から「10」までの数値を順に入力します。
For Next文を使用して、簡単に繰り返し処理を行う方法を学ぶ基本例です。

よく使われる機能2: Excelシートの最終行まで繰り返し処理を行う

以下のコードは、Excelシートの最終行までデータを自動的に取得し、各セルに対して繰り返し処理を行う例です。

Sub FillCellsToLastRow()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 最終行を取得

    For i = 1 To lastRow
        Cells(i, 1).Value = i
    Next i
End Sub

このコードは、Excelシートにおけるデータが存在する最終行まで繰り返し処理を行う場合に非常に便利です。

たとえば、データの自動入力やデータの加工を最終行まで処理したいときに活用できます。

あわせて読みたい

VBAで最終行と最終列を簡単に取得する方法｜セル番号や値の取得も完全網羅 「Excel VBAで、データの最終行や最終列を取得したいけど、どうやってやるのだろう．．．」そんな疑問を持っていませんか？ ・もう手動で表の終わりを探したくない！・...

よく使われる機能3: For Next処理中に「ループを途中で抜ける」（Exit For）

VBAには直接の「breakステートメント」は存在しませんが、ループを途中で抜けるためには「Exit For」を使います。
これは、他のプログラミング言語での「break」と同様の機能を持ちます。

以下のコードは、変数「i」が5になった時点でループを抜ける例です。

Sub ExitForExample()
    For i = 1 To 10
        If i = 5 Then
            Exit For '// iが5の時点でループを抜ける
        End If
        Cells(i, 1).Value = i
    Next i
End Sub

このコードは、Excelシート上でA1からA4までに数値を入力し、変数「i」が5に達した時点でループを抜けます。
そのため、「A5」以降のセルには何も入力されません。

「Exit For」を使うことで、特定の条件を満たしたときに繰り返し処理を途中で抜けることが可能です。
これにより、無駄な処理を避けて効率的なループを実現できます。

よく使われる機能4: For Next処理中に「ループをスキップ」する（Continueの代わりに GoToを使用）

VBAには直接の「Continueステートメント」が存在しないため、特定の条件でループの一部処理をスキップするには、「GoTo」を使用します。

以下のコードは、変数「i」が5の場合に、その処理をスキップする例です。

Sub SkipLoopExample()
    For i = 1 To 10
        If i = 5 Then GoTo SkipLoop '// iが5の場合はスキップ
        Cells(i, 1).Value = i
SkipLoop:
    Next i
End Sub

VBAには直接の「Continueステートメント」はないため、「GoTo」を使ってスキップ処理を実現します。

このコードでは、「i = 5」の時にスキップされ、セル「A1」から「A4」、「A6」から「A10」にのみ値が入力され、「A5」は空のままになります。

代替手段としてのGoToの使用

VBAには他のプログラミング言語で一般的な「Continueステートメント」（ループの中で特定の条件を満たした際に、その反復の残りの処理をスキップし、次の反復に進む命令）が存在しません。

そのため、VBAでは「GoToステートメント」を使って、特定の処理をスキップする方法がよく使われます。
「GoTo」は、プログラムの実行を指定されたラベルにジャンプさせるステートメントです。

この例のように、特定の条件に基づいてGoToを使うことで、ループ内の一部処理をスキップし、次の反復に進むことができます。

よく使われる機能5: For Next処理で「繰り返しの増分を指定」（Stepを使用）

For Next文では、カウンタ変数の増加量を指定することができます。

Stepを使って、繰り返しの増分を調整します。

Sub StepExample()
    For i = 1 To 10 Step 2
        Cells(i, 1).Value = i
    Next i
End Sub

このコードは、「A1」、「A3」、「A5」… と奇数行に対して「1」「3」「5」と2ずつ増加する値を入力する例です。
特定のステップ（増分）で処理を進めたい場合に役立ちます。
例えば、奇数または偶数の行だけにデータを入力するケースで便利です。

よく使われる機能6: For Next処理で「逆方向にループを行う」（Stepにマイナスの値を使用）

Stepにマイナスの値を指定することで、ループを逆方向に実行することができます。

以下のコードは、「A10」から「A1」に向かって逆順に数値を入力する例です。

Sub ReverseLoopExample()
    For i = 10 To 1 Step -1
        Cells(i, 1).Value = i
    Next i
End Sub

このコードでは、セルの「A10」から「A1」までに向かって逆順に数値を入力します。
Stepにマイナスの値を指定することで、カウントダウンのように逆方向にループを実行でき、特定のシナリオ（データの逆順処理など）で役立ちます。

VBAのFor Next文を使う際の注意ポイント

VBAのFor文は非常に便利ですが、正しく使わないとエラーや無限ループが発生することがあります。

ここでは、For文を使用する際の重要な注意点を解説します。

カウンタの範囲に注意 (無限ループ)

VBAのFor Next文では、カウンタ変数の「開始値」と「終了値」を正しく設定することが重要です。

範囲が正しく設定されていないと、無限ループが発生し、プログラムが意図通りに動作しません。

無限ループの例

Sub InfiniteLoopExample()
    '// 無限ループの例
    For i = 1 To -1 '// 終了値が到達できないため無限ループ
        Cells(i, 1).Value = i
    Next i
End Sub

無限ループが起きたらどうしたらいい？

無限ループが発生すると、Excelがフリーズする可能性があるため、実行時には注意が必要です。

無限ループを途中で止めるには、「Escキー」を押して、強制的に中断するか、タスクマネージャーでExcelを終了させる必要があります。

配列やセル範囲のインデックス外アクセスに注意

VBAで配列やセル範囲を操作する際、インデックスが範囲外に設定されているとエラーが発生します。

例えば、行や列の指定が存在しない範囲にアクセスすると、VBAの実行時に「範囲外エラー」が発生します。
このようなエラーを防ぐためには、常に範囲を正確に設定することが重要です。

範囲外エラーの例

Sub IndexOutOfRangeExample()
    '// 範囲外エラーの例
    For i = 1 To 20
        Cells(i, 100).Value = i '// 100列目が存在しない場合、エラー発生
    Next i
End Sub

範囲外エラーの対策

範囲外アクセスを防ぐために、以下の対策を講じることが推奨されます。

VBAのFor Next文の使用例をご紹介

ここからは、VBAのFor文の具体的な使用例を紹介します。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

使用例1: 順番にセルに値を入力する

セル範囲「A1」から「A10」に、「1」から「10」までの数値を順に入力する方法を紹介します。

主な使用用途: セルに数値を順に入力する場合や、配列にデータを格納する際に使用します。

コード例

Sub InputValues()
    Dim i As Long

    For i = 1 To 10
        Cells(i, 1).Value = i
    Next i

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)

1行ずつコードを解説

このコードは、セル「A1」から「A10」までに、「1」から「10」までの数値を順に入力する処理を行います。
For ループを使用して、変数「i」の値を各セルに代入しています。

使用例2: ループで「Step」を使い、数値を飛ばして加算する

セル範囲「A1」から「A10」に、2ずつ増加する数値を入力する方法を紹介します。

主な使用用途: 数値やデータを特定の増加幅で入力したい場合に便利です。例えば、偶数や奇数を扱う処理に適しています。

コード例

Sub StepValues()
    Dim i As Long

    For i = 1 To 10 Step 2
        Cells(i, 1).Value = i
    Next i

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)

1行ずつコードを解説

このコードは、セル「A1」から「A9」の奇数行に対して、「1」から「9」までの数値を「2ずつ増加」させながら順に入力する処理を行っています。

使用例3: 逆方向にループを行う

セル範囲「A10」から「A1」に、逆順で数値を入力する方法を紹介します。

主な使用用途: データを逆方向に処理したい場合や、逆順にデータを削除する処理などに使用します。

コード例

Sub ReverseInputValues()
    Dim i As Long

    For i = 10 To 1 Step -1
        Cells(i, 1).Value = 11 - i
    Next i

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)

1行ずつコードを解説

このコードは、セル「A10」から「A1」に向かって、「1」から「10」までの数値を逆順に入力する処理を行っています。
セル「A10」には「1」、セル「A1」には「10」が入力され、10行に渡って値が逆順に設定されます。

使用例4: ループを強制終了する方法

特定の条件を満たした場合、ループを強制終了する方法を紹介します。

主な使用用途: 特定の条件に達したら処理を中断したい場合に使用します。

コード例

Sub BreakLoop()
    Dim i As Long

    For i = 1 To 10
        If i = 5 Then
             Exit For
        Else
            Cells(i, 1).Value = i
        End If
    Next i

End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• If (条件分岐)

1行ずつコードを解説

このコードは、「1」から「10」までの数字をA列に入力する処理を行いますが、途中で「i」が「5」に達した時点でループを強制終了します。
そのため、A列のセル「A1」からセル「A4」には「1」から「4」までの値が入力され、「A5」以降のセルには何も入力されません。

使用例5: 特定の条件になったら、ループを「スキップ」する方法

特定の条件を満たした場合、ループ内の一部の処理をスキップする方法を紹介します。

主な使用用途: 条件に応じて一部の処理を飛ばしたい場合や、特定のデータを除外する処理に便利です。

コード例

Sub SkipLoop()
    Dim i As Long

    For i = 1 To 10
        If i = 5 Then
            GoTo Continue
        Else
            Cells(i, 1).Value = i
        End If
Continue:
    Next i
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• Dim (変数)
• If (条件分岐)

1行ずつコードを解説

このコードは、「1」から「10」までの数字をA列に入力する処理を行いますが、「i」 が「5」 のときだけは処理をスキップし、「A5」には値が入力されません。
「A1」から「A4」には「1」から「4」までの値が、「A6」から「A10」には「6」から「10」までの値が入力されますが、「A5」は空のままになります。

この記事のまとめ

VBAのFor文は、Excelの繰り返し処理を効率化するために欠かせないツールです。

この記事を通じて、基本的な使い方から応用的な操作までを理解し、実務で活用できるスキルが身につきます。

ポイントのおさらい

この記事の使用例を実践していくことで、VBAの繰り返し処理ができるようになります。

最初はコードをコピペして実行し、少しずつ自分で書けるようにしていきましょう。

あわせて読みたい

サイトマップ このページは、本サイトの記事を分かりやすくまとめました。ぜひご覧ください。 目次 「VBA」を見る 「Officeスクリプト」を見る 「ワークシート関数」を見る 「JavaScr...