迴圈只能有一層嗎?

之前已經教過，如何做到這樣:

那如果要做到這樣呢:

依照目前所教，可以這樣寫:

Sub loop_2()

    For i = 1 To 9

        Cells(i, 1).Value = 1

    Next

    For i = 1 To 9

        Cells(i, 2).Value = 1

    Next

End Sub

有沒有發現，還是有重複? 而迴圈的目的之一，就是要去除重複。所以這兩個迴圈可以合併成一個:

Sub loop_2()

    For i = 1 To 9

        Cells(i, 1).Value = 1

    Next

    For i = 1 To 9

        Cells(i, 2).Value = 1

    Next

End Sub

變成這樣:

Sub loop_2()
    For i = 1 To 9
        Cells(i, 1).Value = 1
        Cells(i, 2).Value = 1

    Next

End Sub