[VBA][Excel]ループ処理 For, Do While, Do Until

 

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

下記を実行すると

Private Sub CommandButton1_Click()
Dim i As Integer

For i = 1 To 5
    Sheet1.Cells(i, 1) = i
Next

For i = 10 To 6 Step -1
    Sheet1.Cells(i, 1) = i
Next


i = 1
Do While i < 6
    Sheet1.Cells(i, 2) = i
    i = i + 1
Loop

i = 10
Do While i > 5
    Sheet1.Cells(i, 2) = i
    i = i - 1
Loop


i = 1
Do Until i > 5
    Sheet1.Cells(i, 3) = i
    i = i + 1
Loop

i = 10
Do Until i < 6
    Sheet1.Cells(i, 3) = i
    i = i - 1
Loop


End Sub

このようになります
vba-excel-for-while-until