以下のコードを記入して、実行してみてください。

Sub For文()
   
   For i = 1 To 100
    Cells(i, 1) = i * 10
   Next

End Sub

1. For　i = 1 to 100 　〜　○○○　〜　Next
   「i」という変数を１から１００まで繰り返しなさいという意味です。この間、処理○○○を繰り返します。
   　

2. Cells（i、１）
   いままではセルの指定はRangeオブジェクトで行っていましたが、Cellsオブジェクトも覚えましょう。
   Rangeオブジェクトでは”A1”のように場所の指定が初心者には理解しやすいのですが、
   上記のコードのようにループ文を使用したり、分岐処理を利用したりする場合には何かと不便です。
   Cells（ａ，ｂ）で”a列ｂ行目”となります。感覚的に、行列反対のような気がしますが慣れてください。

3. コードの解説
   要するにここでは、セル１行目から１００行目まで順番に（行数ｘ１０）を入力しなさいという物です。
   一度、Cellsの（）内の数字や、for文の数字を変更して意味を理解してください。

次は、If文の違うバージョンを試してみましょう。

for文だと、最初から何回と指示しておく必要があり、○○になったらやめてという指示をしたい時に不便です。
このような時にDo〜While文を用いて対応します。以下のコードを入力して、実行してみてください。

Sub Do_While文()
   
   For i = 2 To 1000 Step 2
    Cells(i / 2, 1) = i * 10
   Next

  j = 1
   Do
       If Cells(j, 1) = 500 Then
         Cells(j, 1).Interior.ColorIndex = 3
       End If
     j = j + 1
   Loop While j <= 750

End Sub

1. 全体解説
   前半３行は「For〜Nextで処理を繰り返そう」の改良です。ここで、セルに数値を入力しています。
   後半でセルに５００が入力された箇所を探し出してセルの色を変更しています。　

2. For　i=2　to　1000　Step２
   Stepというのは○ごとに加算していくという意味で、ここでは２飛ばしに数値を加算していきます。
   すなわち、２，４，６，８・・・９９６，９９８，１０００となります。

3. Do　○○○　Loop　While　△△△
   条件が△△△になるまで、○○○の処理を繰り返します。