VBA重複處理-For迴圈
「重複處理」絕對是VBA最重要的單元，寫下指令並形成迴圈來進行大量的處理，讓我們來認識下十分實用的重覆處理-「For迴圈」。
For迴圈語法
For 變數=初始值 to 最終值 step 遞增值 (預設為1)
重覆處理
Next
練習For迴圈1-連續數字相加
輸入巨集
Sub For迴圈練習()
For i = 1 To 100
Total = Total + i
Next
MsgBox Total
End Sub
語法說明
Total = Total + i
‘當i=1時，Total=0+1=1；當遞增+1(預設遞增1) i=2時，Total=1+2=3；以此遞增至100，整個巨集則為1+2+3+…+100。
MsgBox Total
‘顯示出Total值的訊息方塊
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則快速將數字1+2+3+…+100，即顯示出「5050」。
練習For迴圈2-連續奇數相加
輸入巨集
Sub For迴圈練習2()
For i = 1 To 99 Step 2
Total = Total + i
Next
MsgBox Total
語法說明
Total = Total + i
‘當i=1時，Total=0+1=1；當遞增+2 i=3時，Total=1+3=4；以此遞增至99，整個巨集則為1+3+5+…+99。
執行巨集
執行後則快速將數字1+3+5+…+99，即顯示出「2500」。
練習For迴圈3-連續偶數相加
輸入巨集
Sub For迴圈練習3()
For i = 2 To 100 Step 2
Total = Total + i
Next
MsgBox Total
End Sub
語法說明
Total = Total + i
‘當i=2時，Total=0+2=2；當遞增+2 i=4時，Total=2+4=6；以此遞增至100，整個巨集則為2+4+6+…+100。
執行巨集
執行後則快速將數字2+4+6+…+100，即顯示出「2550」。
練習For迴圈4-以數列填滿
輸入巨集
Sub For迴圈練習4()
For i = 1 To 100
Cells(i, 1).Value = i
Next
End Sub
語法說明
Cells(i, 1).Value = i
‘第「i」列第一欄的值為「i」
‘當i=1時Cells(1,1).value=1，即為第1列第1欄的值為1
‘當遞增+1(預設遞增1) i=2時，Cells(1,1).value=1，即為第2列第1欄的值為2
執行巨集
執行後則快速於第一列依序填入1~100。
其他章節
Part1 -【Excel VBA教學】入門-重複處理-For迴圈
Part2 -【Excel VBA教學】入門-重複處理-For Each句
Part3 -【Excel VBA教學】入門-重複處理-Do While句
Part4 -【Excel VBA教學】入門-重複處理-Do Until句