【VBAリファレンス】VBA入門繰り返し処理（For Next)

VBAにおける繰り返し処理の極意：For Next構文を完全マスターする

Excel VBAにおいて、業務効率化の根幹を成すのが「繰り返し処理」です。手作業で100行、1000行と繰り返している単純作業を、わずか数行のコードで瞬時に終わらせる。これこそがVBAを学ぶ最大のメリットであり、その中でも最も基本的かつ強力な武器が「For Next」ステートメントです。本稿では、初心者から中級者へステップアップするために不可欠な、For Nextの仕組み、応用テクニック、そして実務で「壊れないコード」を書くための作法を詳細に解説します。

For Next構文の基本構造と動作原理

For Next構文は、指定した回数だけ特定の処理をループさせるための制御構造です。プログラミングにおいて、この「カウントアップしながら処理を行う」という概念は、配列の操作やセル範囲の走査において避けては通れません。

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


For カウンタ変数 = 初期値 To 終了値 [Step 増分]
    ' 繰り返したい処理
Next [カウンタ変数]

ここで重要なのは、カウンタ変数の役割です。この変数は、ループが1回実行されるたびに自動的に増分値（デフォルトは1）ずつ加算されます。終了値に達した時点でループを抜け、次の処理へと移行します。この「カウンタが自動管理される」という点が、他のループ構造（Do Whileなど）との決定的な違いであり、回数が確定している処理に対して極めて高い安定性を発揮します。

実務で頻出するFor Nextの応用パターン

単に数値をカウントするだけでなく、実務では「セルの参照」と組み合わせることが圧倒的に多くなります。例えば、A列の1行目から10行目までをループで処理する場合、Cellsプロパティを活用するのが定石です。


Sub FillData()
    Dim i As Long
    ' 1行目から10行目までループ処理
    For i = 1 To 10
        Cells(i, 1).Value = "データ" & i
    Next i
End Sub

また、Stepキーワードを使用することで、偶数行だけを処理したり、逆順に処理したりすることも可能です。


' 逆順処理（10から1まで）
For i = 10 To 1 Step -1
    Debug.Print Cells(i, 1).Value
Next i

このように、Stepにマイナスの値を指定することで、後ろから前へ遡る処理が可能になります。これは、特定の条件に合致する行を削除する際、上から順に削除すると行番号がずれてバグの温床になるのを防ぐための「逆順削除テクニック」としても非常に有名です。

可読性を高めるコーディング規約と注意点

ベテランエンジニアとして強調したいのは、「動けばいい」というコードからの脱却です。以下のポイントを意識するだけで、あなたのコードの品質は劇的に向上します。

1. カウンタ変数の明示：Nextの後にカウンタ変数を記述する（Next iなど）。これにより、入れ子構造（ネスト）になった際に、どのループが終了したのかが一目で分かります。
2. 型の選定：カウンタ変数には必ず「Long型」を使用してください。昔の教材ではInteger型が使われることもありますが、現代のExcelでは行数が100万行を超えることも珍しくありません。Integerの範囲（約3万）を超えるとオーバーフローエラーが発生します。Long型であれば21億までカウント可能です。
3. インデントの徹底：ForとNextの間にある処理は、必ずタブキーでインデントしてください。視覚的な階層構造を保つことは、保守性の観点から最も重要です。

入れ子構造（ネスト）と二次元的な処理

For Nextを入れ子にすることで、表全体（行と列）を網羅的に走査することが可能になります。これは、Excelのシートをデータベースとして扱う際に必須のテクニックです。


Sub ProcessTable()
    Dim r As Long, c As Long
    ' 1行目から5行目、かつ1列目から3列目まで
    For r = 1 To 5
        For c = 1 To 3
            Cells(r, c).Value = r * c
        Next c
    Next r
End Sub

このコードでは、まず1行目の1列目、2列目、3列目と処理が進み、それが終わると2行目の1列目……という順序で実行されます。ネストを深くしすぎると処理速度が低下し、可読性も著しく悪化するため、原則としてネストは3重程度までに留めるのがプロの設計思想です。

実務アドバイス：速度を意識したループ処理の最適化

VBAが遅いと感じる原因の多くは、ループ内で「セルへのアクセス」を頻繁に行っていることにあります。Excelの画面更新や計算処理は、VBAからセルを操作するたびに走るため、1000回も繰り返せば無視できない遅延が発生します。

これを解消するための実務テクニックとして、「配列への格納」があります。


Sub FasterLoop()
    Dim dataArray As Variant
    Dim i As Long
    ' 一気に配列に読み込む
    dataArray = Range("A1:A10000").Value
    
    ' メモリ上の配列を操作する
    For i = 1 To UBound(dataArray, 1)
        dataArray(i, 1) = dataArray(i, 1) * 2
    Next i
    
    ' 一気に書き出す
    Range("B1:B10000").Value = dataArray
End Sub

このように、セルを直接触るのではなく、一度メモリ上の配列にデータを取り込んでから計算し、最後に一括で書き戻す手法は、大規模なデータ処理において必須のスキルです。For Nextの回数が多い場合は、常に「このループの中でセルアクセスを減らせないか」を検討してください。

まとめ：For Nextは自動化の第一歩

For Next構文は、単なる制御構造ではありません。それは、Excelという広大なキャンバスを、あなたの意のままに操るための「命令書」です。今回紹介した基本構造から、逆順処理、ネスト、そして配列を利用した高速化手法までを理解すれば、日常業務のほとんどを自動化する準備が整ったと言えます。

プログラミングにおいて最も大切なことは、論理を組み立てる思考力です。「どの範囲を」「どのような順序で」「どう変化させるか」。この3点をFor Nextの中で定義できるようになれば、あなたはもうVBA初心者ではありません。

繰り返し処理は、エラーとの戦いでもあります。まずは小さな範囲でテストを行い、期待通りの動きをするか確認する。そして、複雑な処理の前には必ずバックアップを取る。この慎重な姿勢こそが、最高品質のエンジニアへの近道です。さあ、今すぐエディタを開き、まずは1から10までをイミディエイトウィンドウに出力することから始めてみてください。その一歩が、あなたの働き方を変える大きな自動化の波となるはずです。