タイトル
 繰り返し処理 Do While 〜 Loop
 Do While 〜 Loop の間の処理を繰り返す
 
Dim num As Long
num=0
Do While num < 10
  cells(num,1)=num
  num=num+1
Loop
【説明】
 1行目:long 型の変数 num を宣言
 2行目:num を初期化
 3行目:num &lt;10 の間、繰り返す
 4行目:num 行のA列に num を表示
 5行目:num を+1する
 6行目:Do に戻って繰り返す