ExcelVBA的foreach循环介绍1. 打开Visual Basic，添加⼀个新模块和过程。
Sub 测试()
End Sub
2. 如果要在当前⼯作表中A1到A10单元格都输⼊同⼀个数字，⽤for循环如下图。
Sub 测试()
Dim i As Integer
写给弟弟的一封信For i = 1 To 10
提心吊胆的近义词
Range("A" & i) = 1
Next
End Sub
3. 要达到以上的效果，但是⽤for each则如下。
Sub 测试1()
Dim rng As Range
For Each rng In Range("A1:A10")
带如的成语rng = 1
Next
End Sub
幼儿园升旗仪式
4. 关于以上代码：
乍浦rng为变量，这⾥的意思即为单元格，相当于Range("A1")等等；
for each中rng变量是在A1到A10的范围内循环；
在定义的时候（Dim rng as Range）也是将rng定义为Range区域或范围；rng=1即是给单元格赋值为1。
爆笑冷笑话
5. 如果要使A1到A10的数据依次递增，在for循环中可以利⽤变量i，如图所⽰。
Sub 测试()
Dim i As Integer
For i = 1 To 10
Range("A" & i) = i
Next
聪明女人的活法End Sub
6. 那么在for each中，通过上⾯的⽅法⽆法实现，则需要再定义⼀个变量i。
Sub 测试1()
Dim rng As Range
Dim i As Integer
For Each rng In Range("A1:A10")
i = i + 1
rng = i
苹果手机清内存Next
End Sub
7. 关于以上的代码：
新定义⼀个变量i；
在for each循环中添加i=i+1，因i初始为整数0，所以第⼀次循环得到i+1，即0+1等于1；执⾏到rng=i，即可得到rng=1，后⾯依次循环递增。
