For Each循环使用

For  Each---Next循环非常灵活，使用For  Each---Next循环语句时候，不需要定义循环条件，如果要在一个集合或一个数组中循环时，非常方便。

sub test()

dim c as range,i as integer

i=1

for each c In Range(A1:A100)

c.Value=i

i=i+1

Next

End Sub