VBA For Each句
前面一篇的「For迴圈」是從指定初始值,一直到最終值進行重複處理,而本篇「For Each句」則是指定的群組進行重複處理,例如指定群組(A1:B2儲存格),進行重複處理。

For Each句語法
For Each 變數 In 群組
重複處理
Next
練習For Each句1-列出儲存格位址
輸入巨集
Sub ForEach練習()
For Each A In Range(“A1:B2”)
MsgBox A.Address
Next
End Sub

執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。

執行後則快速列出群組內(A1:B2)所有儲存格位址,依序顯示「$A$1」、「$B$1」、「$A$2」、「$B$2」。

練習For Each句2-以數列填滿
輸入巨集
Sub ForEach練習2()
i = 1
For Each A In Range(“A1:A10”)
A.Value = i
i = i + 1
Next
End Sub

執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。
執行後則快速於「A1:A10」儲存格依序填入1~10。

練習For Each句3-將偶數反色
輸入巨集
Sub ForEach練習3()
For Each A In Range(“A1:A10”)
If A.Value Mod 2 = 0 Then
A.Interior.ColorIndex = 23
End If
Next
End Sub

執行巨集
執行後則判斷「A1:A10」儲存格的值,若為「偶數」則反色成藍色。

其他章節
Part1 -【Excel VBA教學】入門-重複處理-For迴圈
Part2 -【Excel VBA教學】入門-重複處理-For Each句
Part3 -【Excel VBA教學】入門-重複處理-Do While句
Part4 -【Excel VBA教學】入門-重複處理-Do Until句