那如果要做到這樣呢:
依照目前所教,可以這樣寫:
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
變成這樣:
Sub loop_2()
For i = 1 To 9
Cells(i, 1).Value = 1
Cells(i, 2).Value = 1
For i = 1 To 9
Cells(i, 1).Value = 1
Cells(i, 2).Value = 1
Next
End Sub





