VBA Do while Loop で、1から10まで表示する

1. サンプル

Sub MySub()

  Dim i As Integer
 
  i = 0
 
  Do While i < 10
    i = i + 1
    Debug.Print i
  Loop
 
End Sub

2.実行結果

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10