繰り返し処理（For Next)

最終更新日：2020-09-26

第16回.繰り返し処理（For Next)

VBAのFor Nextは、同じ処理を繰り返し行うためのVBA構文です。

繰り返し処理はループ処理とも呼ばれます。
マクロでのループ処理の記述は何通りかありますが、
まず最初に覚えるべきものが、今回説明するFor Nextです。

For Nextは、繰り返し処理をするためのステートメントで、
マクロVBAで処理を自動化する為の必須記述になります。

エクセルの表とは、横に項目が並び、縦にデータが入っている事が多いわけですが、
この表の全データを、For Nextを使って短い記述で繰り返し処理できるようになります。

それでは、For Nextの基本的な構文から確認していきましょう。

For Next ステートメント

指定した回数だけ、一連のステートメントを繰り返すフロー制御ステートメントです。

構文

For counter = start To end [Step step]
　　[statements]
　　[Exit For]
　　[statements]
　　
Next [counter]

counter	必ず指定します。カウンタに使う数値変数を指定します。配列変数およびブール型 (Boolean) に含まれる変数は指定できません。
start	必ず指定します。引数 counter の初期値を指定します。
end	必ず指定します。引数 counter の最終値を指定します。
step	省略可能です。ループを繰り返すごとに引数 counter に加算される値を指定します。引数 step を省略すると、ループを繰り返すごとに引数 counter には 1 が加算されます。
statements	省略可能です。ループ内で実行される一連のステートメントで、For と Next の間に記述します。ここに記述したステートメントは、For...Next ステートメントで指定した回数だけ実行されます。

これは、Excelのヘルプからの抜粋です。
これを読んでわかるなら苦労しないし、このサイトは見ないでしょうから、
詳しく、説明します。

まず、ステートメントとは、マクロの挙動を制御する構文、命令文です。

プログラミング言語には独特の用語があります。用語の理解があやふやなままで解説を読んでも理解がずれてしまう事もあります。VBAの用語は、プログラミング言語一般で使われている用語と同じ使い方も多いのですが、中にはVBA独自の使い方をしている場合もあります。

では、上記構文の余分なものを消して、日本語に直してみましょう。

For 変数 = 開始数値 To 終了数値
　　・・・処理・・・
Next

つまり、変数が開始数値から終了数値になるまで繰り返すということです。

※Nextの後ろに書くカウンター変数

Next [カウンター変数]
このカウンター変数は、省略可能です。
見栄えだけの問題と考えてもらって構いません、書いても書かなくても問題ありません。
当サイト内でも、書いてあったりなかったりしていますが、特に意図はありません。

For Next 例文

例文で理解を深めましょう。
A1セルからA10セルに、1を入れる場合です。


  
    
      Sub 練習1()

      　　Dim i

      　　For i = 1 To 10

      　　　　Cells(i, 1) = 1

      　　Next 
i

      End Sub

※.Valueは省略しています。

変数iが、1から10まで、自動的にアップしていきます。
つまり、
Cells(1, 1) = 1
Cells(2, 1) = 1
・・・
Cells(10, 1) = 1
このように、順に変数iを1～10で実行してくれます。
１行ずつ説明を書くと


  
    
      
      Sub 練習1()

      　　Dim i　　　　　　　 '変数iを宣言



      　　For i = 1 To 10 　 '変数iを１から10まで１づつカウントアップ

      　　　　Cells(i, 1) = 1　'A列のi行目のセルに1を入れる

      　　Next i　　　　　　　 'Forの範囲はここまで


      End Sub

※.Valueは省略しています。

For Next をステップイン実行で目で見て確認しましょう。

マクロを1行ずつ実行する方法を、ステップインと呼びます。

VBEの使い方：デバッグ

VBE(VisualBasicEditor)は、VBAで使われるコードエディタ、コンパイラ、デバッガ、その他の開発支援ツールが統合された開発環境です。ここではVBA開発で、重要かつ避けて通れないデバッグについて説明します。。

コーディングとデバッグ

VBA開発での効率的なコーディングと、プログラム作成では避けて通れないデバッグについて説明します。また、陥りやすい間違い、よくやってしまう間違い等も説明しておきます。効率的なコーディングプロシージャーの移動コール先のSubプロシージャーやFunctionプロシージャーに移りたい場合があります。

デバッグの基礎

・デバッグとは・論理エラーと文法エラー・イミディエイトウィンドウ・ブレークポイント・ステップ実行【ここでのポイント】あまりにも範囲が広いため、どこまでが出題範囲なのか悩ましいてころです。デバッグそのものを問う問題だとしても、例文にVBAコードが存在する場合は、そもそもVBAの基礎そのものが問われることになります。

SubからEnd Subの範囲内に入力カーソルがある状態で、
ステップイン実行、F8を押します。

黄色い行は、これからこの行を実行するという事です。
F8を押すごとに、黄色い行が進んでいきます。

マウスカーソルを変数の上に乗せると、変数の値がポップアップ表示されます。

F8を次々に押しながら、
その時々のシートの状態を確認してください。

変数の変化と、シートの変化を実際に見て確認してください。

１行置きに処理する場合

1行目、3行目、5行目・・・
このように、1行置きに処理する場合のFor Nextの書き方です。


  
    
      Sub 練習2()

      　　Dim i

      　　For i = 1 To 10 Step 
2

      　　　　Cells(i, 1) = 1

      　　Next i

      End Sub

このように、Stepを書き加えます。

Step 2
これが１行置きの指定です。
iが2ずつ増えていきます。
つまり、これを書かない時は、
Step 1
と言う事です。

このStepは、マイナス数値も指定できます。
Step -1
とすれば、iは１ずつ減っていきます。
セルの行を下から処理したい場合や、シートを後ろから処理したい場合です。
これは非常に多くの場合に使用されます。

マクロ再入門：第20回.全てのシートに同じ事をする（For～Worksheets.Count）

エクセルの作業で最も面倒かつ時間のかかる作業は、同じ作業の繰り返しでしょう。1回だけなら数秒でも、それを何十回と繰り返すとなると… 多くのシートがあり、同じ作業を全シートに行うとなると… こういう時こそ、まさにVBAの出番です。シートの指定方法 Worksheets("シート名") Worksheets(インデックス) ActiveS…

Exit For

Exit Forは、For～Nextのループを抜けます。

指定の終了数値に達する前に、
For～Nextのループ処理を終了したい場合に使用します。

通常のFor～Nextは指定回数繰り返す為に使うので、Exit Forを使う事は少ないのですが、
特定の条件になった場合は、指定回数の処理を完了する前にループを抜けたい場合に使用します。


  
    
      Sub 練習3()

　　Dim i

　　For i = 1 To 10

　　　　If Cells(i, 1) <> "" Then

      　　　　　　Exit For

　　　　End If

　　　　Cells(i, 1) = 1

　　Next

End Sub

10行目まで繰り返したいが、
A列に既に値が入っていたら、そこで終了するという処理になります。

For～Nextのネスト（入れ子）

縦10行、横10列に１を入れる場合です。


  
    
      Sub 練習3()

      　　Dim i, j

      　　For i = 1 To 10

      　　　　For j = 1 To 
10

      　　　　　　Cells(i, j) = 1

      　　　　Next j

      　　Next i

      End 
Sub

F8ステップインで実行して、内側のForから外側のForに移る様子を確認して下さい。

For～Nextのネストは何段階でも書けますが、
あまり多くのネストをしてしまうと可読性（読みやすさ）が低下します。

ネストは、概ね3段階までが推奨されています。

最後に一言

繰り返し処理はプログラミングの基本中の基本です。
これが曖昧では、実務でマクロVBAを使う事は出来ません。
以下の記事も参考に、ぜひしっかり習得してください。

マクロ再入門

第5回.同じ計算を行数分繰り返す（For～Next）

エクセルの表とは、横に項目が並び、縦にデータが入っているものです。この表を、簡単に計算できなければマクロVBAを作る意味がありません。同じ計算を、データ行数分繰り返すマクロVBAコードです。以下の表で、データ行数分繰り返し計算をやってみましょう。

第6回.表の先頭から最終行まで繰り返す（ForとEnd(xup).Row）

エクセルの表は、横の項目はあまり変更はないものですが、縦のデータ数、つまり行数は常に変わるものです。前回のように、固定の回数しか繰り返せないのでは困ります。データ数に応じて、最終行まで繰り返す方法が必要です。

ForとIfのネストこそがVBAの要点

VBA習得で最も肝心なものは、For文とIf文を確実に習得することです。For文とIf文の基本をしっかりと覚え、そして、For文とIf文をネストさせるプログラミング技術を習得してください。For～Nextステートメントは、繰り返し処理 If～EndIfステートメントは、条件分岐つまり、条件により分岐しつつ繰り返し処理を行う。

For Next の使い方いろいろ

VBAの繰り返し処理としては、ForNextまたはDoLoop この二つを最初に学んだのではないでしょうか。プログラムにおける繰り返し処理は、基本中の基本です。特に使用頻度の高いForNextを重点的に学んでいることと思いますが、書き方、使い方は、いくつかのパターンがあります。

同じテーマ「マクロVBA入門」の記事

第13回.定数宣言のConstと型宣言文字
 第14回.文字の結合（&アンパサンド）と継続行（_アンダーバー）
第15回.四則演算と注釈（コメント）
第16回.繰り返し処理（For Next)
第17回.繰り返し処理（Do Loop）
第18回.最終行の取得（End,Rows.Count）
第19回.総合練習問題1
第20回.条件分岐（IF）
第21回.条件分岐（ElseIf）
第22回.条件分岐（Select Case）
第23回.メッセージボックス(MsgBox関数)

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門

ホーム
マクロVBA入門編
マクロVBA入門
繰り返し処理（For Next)

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA入門
第16回.繰り返し処理（For Next)

第16回.繰り返し処理（For Next)

For Next ステートメント

For Next 例文

For Next をステップイン実行で目で見て確認しましょう。

１行置きに処理する場合

Exit For

For～Nextのネスト（入れ子）

最後に一言

同じテーマ「マクロVBA入門」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング・・・ランキング一覧を見る

第16回.繰り返し処理（For Next)

For Next ステートメント

For Next 例文

For Next をステップ イン実行で目で見て確認しましょう。

１行置きに処理する場合

Exit For

For～Nextのネスト（入れ子）

最後に一言

同じテーマ「マクロVBA入門」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

For Next をステップイン実行で目で見て確認しましょう。

アクセスランキング・・・ランキング一覧を見る