【VBAリファレンス】VBA練習問題解答練習問題1（For～Nextの練習）解答

VBAにおけるFor～Nextループの習得：基礎から実務レベルへのステップアップ

Excel VBAを習得する上で、最も重要かつ頻繁に使用される構文がFor～Nextループです。この構文を自在に操れるようになることは、単なる「自動化」から「プログラミング的な思考」への転換を意味します。本記事では、初心者向けの練習問題を通じ、For～Nextの構造、変数の役割、そして実務で避けては通れない「効率的なコードの書き方」について、ベテラン講師の視点から深く掘り下げて解説します。

For～Next構文のメカニズムと基本構造

For～Nextループは、指定した回数だけ処理を繰り返すための制御構文です。その基本構造は非常にシンプルですが、中身を理解せずに使用すると、無限ループや意図しない結果を招く原因となります。

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

1. カウンタ変数の初期化：指定した開始値でループが始まります。
2. 条件判定：カウンタ変数が終了値を超えていないかを確認します。
3. 内部処理：ブロック内のコードが実行されます。
4. ステップ加算：カウンタ変数にStep値（デフォルトは1）を加算します。
5. 繰り返し：条件を満たさなくなるまで2～4を繰り返します。

この流れを頭の中でトレースできるようになることが、バグを防ぐ第一歩です。特に「Step」キーワードを省略した場合の挙動（デフォルトで+1）を意識しつつ、逆順ループ（Step -1）が必要な場面があることも覚えておきましょう。

練習問題：セル範囲への連続書き込みと動的制御

今回の練習問題として、「アクティブシートのA1からA10のセルに、1から10までの数値を順番に入力する」という課題を設定します。

この問題のポイントは、セルを指定する際に「Cells(行番号, 列番号)」を用いることです。Range(“A1”)のような固定的な指定ではなく、カウンタ変数「i」を組み込むことで、動的にセルを指定する技術を学びます。

実務に即したサンプルコードと解説

以下に、標準的な解答コードと、プロの現場で用いられる「少しだけ洗練された」書き方を提示します。

' 【標準的な解答コード】
Sub BasicLoopExample()
    Dim i As Long
    
    ' 1から10まで繰り返す
    For i = 1 To 10
        ' Cells(行, 列)を使用して値を代入
        Cells(i, 1).Value = i
    Next i
End Sub

' 【実務で推奨されるコード】
Sub ProfessionalLoopExample()
    Dim ws As Worksheet
    Dim i As Long
    
    ' シートを明示的に指定することで、予期せぬエラーを防ぐ
    Set ws = ActiveSheet
    
    ' 画面更新を停止して処理速度を向上させる
    Application.ScreenUpdating = False
    
    For i = 1 To 10
        ws.Cells(i, 1).Value = i
    Next i
    
    Application.ScreenUpdating = True
End Sub

プロの現場では、「どのシートを操作しているか」を明確にすることが鉄則です。ActiveSheetに頼り切ったコードは、ブック間でのコピペや複雑な処理の中で誤作動を起こすリスクが高いため、必ずWorksheet型の変数に格納する癖をつけましょう。

また、Application.ScreenUpdatingを使用することで、ループ処理中の画面のチラつきを抑え、実行速度を劇的に向上させることができます。これは数千行を超えるデータを扱う際に必須のテクニックです。

For～Nextにおけるベストプラクティスと注意点

For～Nextを扱う際、初心者が陥りがちな罠と、それを回避するためのアドバイスをいくつか紹介します。

1. カウンタ変数の型定義
カウンタ変数には必ず「Long型」を使用してください。かつてはInteger型が使われることもありましたが、Excelの行数は現在100万行を超えています。Integer型の最大値（32,767）を超えるとオーバーフローエラーが発生するため、最初からLong型を習慣化することが重要です。

2. ループ内での「Select」や「Activate」の禁止
「Cells(i, 1).Select」のように、いちいちセルを選択してから値を入力するコードを書いてはいけません。これは処理速度を著しく低下させるだけでなく、画面の視覚的な負担も増やします。「Cells(i, 1).Value = i」のように、直接値を代入する書き方を徹底してください。

3. ネスト（入れ子構造）の可読性
Forループの中にさらにForループを入れる「ネスト」は便利ですが、深くしすぎるとコードの可読性が低下します。3重以上のネストが必要な場合は、処理の一部を別のSubプロシージャに切り出すことを検討してください。

4. ステップ実行によるデバッグ
VBAエディタで「F8」キーを押すと、1行ずつコードを実行できます。ループが正しく回っているか、カウンタ変数が期待通りの値になっているかをローカルウィンドウで確認する習慣は、デバッグ能力を飛躍的に高めます。

実務アドバイス：なぜループが必要なのかを問い直す

実務において、For～Nextループは非常に強力ですが、場合によっては「ループを使わない方が速い」ケースも存在します。例えば、1から1000までの数値を配列に格納して一気にセルへ出力する方法や、オートフィルタと組み合わせて一括で値を代入する方法などです。

「何でもかんでもForループで回せばいい」というわけではありません。特に大量のセルを1つずつ操作する処理は、VBAのボトルネックになりがちです。まずはFor～Nextを完璧に使いこなすことが先決ですが、慣れてきたら「配列（Array）」や「Rangeオブジェクトの一括操作」といった、より高度なメモリ操作に目を向けてみてください。

VBAの学習は筋トレに似ています。最初は簡単なループを書いて、それが意図した通りに動いた時の小さな成功体験を積み重ねることが、何よりも重要です。

まとめ：For～NextはVBA習得の登竜門

今回の練習問題を通じて、For～Nextの基本構文から、実務での可読性や処理速度を意識した書き方までを解説しました。

・カウンタ変数はLong型で定義する。
・シートオブジェクトを明示的に指定する。
・SelectやActivateを避け、直接的な代入を行う。
・Application.ScreenUpdatingでパフォーマンスを最適化する。

これらのポイントは、どんなに複雑なシステムを構築する際にも共通する「プロの作法」です。まずはこの基礎を完璧にマスターし、エラーのない、効率的で美しいコードが書けるようになることを目指してください。VBAは、あなたの業務効率を劇的に変える強力な武器となります。今日書いた10行のコードが、数年後のあなたの生産性を支える礎となるはずです。習得への近道はありませんが、正しい習慣を身につければ、必ずプロフェッショナルなエンジニアへと成長できるはずです。