For～Nextのループと入れ子構造をVBA最速理解

For～Nextは、エクセルVBAのコード組み立ての中で頻繁に利用されます。For～Nextとその入れ子（ネスト）の考え方を最速理解できるようにします。

こんにちは、じゅんぱ店長（@junpa33）です。

エクセルVBAのコード組み立てで、非常によく使うステートメントの一つにFor～Nextでのループ処理があります。

今回はこのFor～Nextステートメントの使い方を説明します。

制御構文とステートメント

コンテンツ

For～Nextの入れ子ループを最速理解

エクセルVBAコードを組み立てる上で、セルの値を拾いに行ったり、

置きに行ったりするのにFor～Nextのループ処理は基本になります。

実際的には、入れ子（ネスト）構造にして処理を行っていくことが多くなります。

入れ子（ネスト）という複層構造になりますので、組み立てられたコードを見ても「何か複雑！」という印象になるかもしれません。

簡単に理解するためには、順番に組み立て行くところを確認しながら見て行くことが重要です。

一行分だけ（変数を1つ）を使ってFor～Nextの動作を確認する
次に（変数を１つ増やして）他の行にも同じ処理を広げます
さらに（変数を１つ追加して）このSheet１での処理を、Sheet3まで広げます
VBAコード完成させると3重入れ子（ネスト）になっています

一行分だけ（変数を1つ）を使ってFor～Nextの動作を確認する

Excelシートで言うと、一行のみや一列のみ（1直線状のセルのみ）に処理を行うところを見ていきます。

今回は1行目だけを考えます。

①コード組立て

 　　For z = 1 To 7
 　　　　Cells(1, z) = K + 1
 　　　　K = K + 1
 　　Next z

Cells(行，列)は、セル位置を表しています。

この例ですとCells(1, z)は1行目のｚ列目のセルを表しています。

この様にセル位置を表示する方法として、「行・列共に数字で表現できる」Cellsを使用することになります。

MEMO

セル位置を表示するのにRange(“A1”)という表現方法もあります。が、

今回は列を動かしていくので、この表示では「A1→B1→C1→」と変化することになります。

ですので、数字の増減で変化させるわけではないため、

For z = 1 To 7のように表示させるのには不向きなタイプのセル表示方法になります。

そして

　K = 100

とすると、

このVBAコードを実行すると、このようになります。

次に（変数を１つ増やして）他の行にも同じ処理を広げます

1行目に行った処理を続けて2行目3行目と広げていきたいと思います。５行目まで処理していきましょう。

先ほどは「zという列のための変数」を使いましたが、

「行のためのyという変数」を作ります。

考え方として、「①コード組立ては１行分の処理コードセット」と考えてください。

そのコードセットを5回繰り返します。

セル位置を表示するCells(1, z)をCells(y, z)というように

行を表す「1」を「y」に変更します。

つまり、組み立てるVBAコードは、

②コード組立て

　　For y = 1 To 5
　　　　For z = 1 To 7
　　　　　　Cells(y, z) = K + 1
　　　　　　K = K + 1
　　　　Next z
　　Next y

このVBAコードを実行すると、このようになります。

列のセル数７個、行のセル数５個　合計３５個のセルを処理しました。

さらにこのSheet１での処理を、Sheet3まで広げます

②コード組立てで組み立てたコードは、1枚のシート上での作業と考えてください。

この処理を3枚のシート上で行います。その「シート番号を表す変数をx」とします。

今回は3回この作業を繰り返すことになります。

Sheet1やSheet2、Sheet3は、Worksheets(〇)で表現・表示します。「〇」は数字です。

つまり、組み立てるVBAコードは、

③コード組立て

　　For x = 1 To 3
　　　　Worksheets(x).Select
　　　　For y = 1 To 5
　　　　　　For z = 1 To 7
　　　　　　　　Cells(y, z) = K + 1
　　　　　　　　K = K + 1
　　　　　　Next z
　　　　Next y
　　Next x

このVBAコードを実行すると、このようになります。

処理したセルの数は、列7個ｘ行５個ｘシート３個　で１０５個　になります。

VBAコード完成させると3重入れ子（ネスト）になっています

実行可能なプロシージャー化したコードを記述しておきます。

VBA

Sub 入れ子ループ()
　Dim x As Long
　Dim y As Long
　Dim z As Long
　　K = 100
　　For x = 1 To 3
　　　　Worksheets(x).Select
　　　　For y = 1 To 5
　　　　　　For z = 1 To 7
　　　　　　　　Cells(y, z) = K + 1
　　　　　　　　K = K + 1
　　　　　　Next z
　　　　Next y
　　Next x
End Sub