for each..next

当需要处理集合成员的时候，一般会用这个，实际上就是处理对象

Sub foreachnext循环()
Dim rng As Range, n!
For Each rng In Sheet1.Range("a2:a6")
If rng = "a1" Then rng.Interior.ColorIndex = 3
Next
End Sub