繰り返し処理を使いこなそう。

データのある分だけ、同じ処理を実行させたいときがあります。
そのときに使うのが、For Next文やDo Loop文です。

１．基本は、For～Next文。

繰り返し処理の基本は、For Next文です。
決まった回数の繰り返し処理を行うのが得意です。
　右のようにしたい　

例えば、上のようなデータを、奇数と偶数に振り分ける場合だと、下のようになります。

Sub test()

　　Dim R As Integer

　　For R = 2 To 10　←①
　　　　Select Case Cells(R, 1) Mod 2　←②
　　　　　　Case Is = 1　←③
　　　　　　　　Cells(R, 2) = Cells(R, 1)
　　　　　　　　Cells(R, 1) = ""

　　　　　　Case Else　←④
　　　　　　　　Cells(R, 3) = Cells(R, 1)
　　　　　　　　Cells(R, 1) = ""
　　　　End Select
　　Next R　←⑤

End Sub

①　ここで、2行目から10行目まで処理をすることを設定します。
　　（数が、２から１つずつ増えて、１０になるまで処理をする。）

②　セルの値を２で割った余りで条件分岐します。

③　余りが１のときは、2列目の奇数の欄に書き込み、元のセルは空欄にします。

④　それ以外の時は、3列目の偶数欄に書き込み、元のセルは空欄にします。

⑤　ここまでの処理を繰り返すよう設定します。

上の書き方が基本ですが、次のようなこともできます。

For R = 2 To 10 Step 2　　←　２から１０まで、２つずつ数字を増やしていく。（２つ飛ばしの意味）

For R = 10 To 2 Step -2　　←　１０から２まで、２つずつ数字を減らしていく。

２．データ数が決まってなく、ちょくちょく変わることがある場合（Do～Loop文）

いつも同じ個数のデータを処理する場合は、For Next文で回数を指定すればいいのですが、
毎回、データの数が違うとなると、そのままではうまく処理できません。
そういうときには、便利な　Do Loop文があります。
連続してデータが続く場合、終わりまで処理を続けてくれます。

Sub test3()

　　Dim R As Integer

　　R = 2　←①
　　Do Until Cells(R, 1) = ""　←②
　　　　Select Case Cells(R, 1) Mod 2
　　　　　　Case Is = 1
　　　　　　　　Cells(R, 2) = Cells(R, 1)
　　　　　　　　Cells(R, 1) = ""

　　　　　　Case Else
　　　　　　　　Cells(R, 3) = Cells(R, 1)
　　　　　　　　Cells(R, 1) = ""
　　　　End Select

　　　　R = R + 1　←③
　　Loop　←④

End Sub

①　ここで、何行目から実行するか数値を設定します。（カウンタ）

②　1列目のセルが空になるまで、処理を実行します。

③　カウンタを１つ、増やします。

④　ここまでの範囲を繰り返します。

Do Loop文では、カウンタという変数を１つ用意し、進み方を設定しなければなりません。③
上の場合でいうと、Ｒです。
1回処理が終わる毎に、カウンタを１つ増やして、1つ下のセルを指定しています。
これをしないと、同じセルで無限に処理を続けていくことになります。
（For Next文は、行頭で設定しています。）

Do　の横にある、Until　は、「条件を満たすまで実行する」という意味です。
したがって、上の場合は、空のセルが見つかるまで実行し続けます。

反対に、While　もあります。（「条件を満たす間実行する」という意味
これを使って同じ処理をさせようとするなら、
Do Until Cells(R, 1) = ""　は、下のようになります。
Do While Cells(R, 1) <> ""　となります。

また、Until　や　While　は行末に付けることもできます。

Do
Loop Until Cells(R, 1)

行頭に付けた場合は、条件が合わないと1回も処理をしずに次に移ってしまうのに対して、
行末にに付けた場合は、必ず1回は処理をします。
このことを考えて、位置を決めます。（普通は、行頭でいいです。わかりやすいから。）

３．途中に空欄があるときは、やっぱりFor～Next文

Do Loop文は、非常に便利ですが、途中に空欄があると、もうお手上げです。
空欄で、処理が止まってしまうからです。
そこで、空欄があっても処理を続けさせるには、ひと工夫してFor Next文を使います。
　右のようにしたい　

Sub test4()

　　Dim 数 As Long　←①
　　Dim R As Long　←①

　　数 = Rows.Count　←②
　　数 = Cells(数, 1).End(xlUp).Row　←③

　　For R = 2 To 数　←④
　　　　Select Case Cells(R, 1) Mod 2
　　　　　　Case Is = 1
　　　　　　　　Cells(R, 2) = Cells(R, 1)
　　　　　　　　Cells(R, 1) = ""
　　　　　　Case Else
　　　　　　　　Cells(R, 3) = Cells(R, 1)
　　　　　　　　Cells(R, 1) = ""
　　　　End Select
　　Next R

End Sub

①　変数の宣言を長整数型で行います。
　　整数型（Integer）だと、オーバーフローしてしまうからです。

②　セルの全行数を求めます。

③　最終行から、データのある最終行を探します。

④　範囲を２から、データのある最終行とします。

工夫してあるのは、①、②、③で、データの最終行を求めていることです。
これで、空欄があっても最後まで処理してくれます。

４．こんなＦｏｒ文もある。（For Each ～ In ～）

For文の使い方として、『ある範囲や全ワークシートなどを対象にして繰り返し処理を行う』というものがあります。
位置などの変数を使わなくてもいいので、上手に使うと非常に便利です。

ある範囲で実行　（実行前）　→	→　ある範囲で実行　（実行後）
Sub test01() 　　Dim 範囲 As Range　←① 　　Dim tmp As Range　←② 　　Set 範囲 = Range("a1:d5")　←③ 　　For Each tmp In 範囲　←④ 　　　　tmp.Value = tmp.Value + 1　←⑤ 　　Next tmp End Sub	≪ある範囲の数値全部に、１を足す処理≫ ①②　セルや範囲を扱うのでRangeで宣言します。 ③　範囲という変数に代入します。 ④　範囲の中から、１つずつセルを取り出します。 ⑤　tmpがセルを扱っているので、セルの何を扱うのか、細かく指定します。　　この場合は、値なので、Value　です。　　入っている値に、＋１したものを元のセルに代入しています。
全ワークシートを対象に実行　（実行前）　→	→　全ワークシートを対象に実行　（実行後）
Sub test02() 　　Dim tmp As Worksheet　←① 　　Dim R As Integer 　　For Each tmp In Worksheets　←② 　　　　R = R + 1　←③ 　　　　Cells(R, 1) = tmp.Name　←④ 　　Next tmp End Sub	≪すべてのワークシート名をセルに書き出す処理≫ ①　ワークシートを扱うのでWorksheetで宣言します。 ②　全ワークシートの中から、１つずつワークシートを取り出します。 ③　書き込むセルを１つずつ下に下げるため、＋１します。 ④　tmpがワークシートを扱っているので、ワークシートの何を扱うのか、細かく指定します。　　この場合は、名前なので、Name　です。　　全部のワークシートの名前を、セルに書き出しています。
全オートシェイプを対象に実行　（実行前）　→	→　全オートシェイプを対象に実行　（実行後）
Sub test03() 　　Dim tmp As Shape　←① 　　Dim L As Integer 　　For Each tmp In ActiveSheet.Shapes　←② 　　　　tmp.Top = 0　←③ 　　　　tmp.Left = L　←④ 　　　　L = L + 80　←⑤ 　　Next tmp End Sub	≪すべてのシェイプを順に並べる処理≫ ①　シェイプを扱うので、Shapeで宣言します。 ②　アクティブなシートの全シェイプの中から、１つずつシェイプを取り出します。 ③　ワークシート上でのシェイプの上端の位置を決めます。ここでは０なので、シートの一番上になります。 ④　ワークシート上でのシェイプの左端の位置を決めます。ここでは８０ずつ増やしていくので、右に順番に並びます。