Question

Excel vba For Each函数怎么用?谁举个简单的例子,说明 我看不明白.

Excel vba For Each函数怎么用?谁举个简单的例子,说明 我看不明白.

Answer 1

就是遍历一下某个集合.

我随手写的哈, 注意 在vbe中会自动调用大小写, 我没有

dim rng as range
set rng = range("A1:A10")     // 定义一个区域, 从a1到a10
dim temp as range                // 定义一个临时的区域, 为了循环 
for each temp in rng
    // 第一次循环时 temp 就是 a1, 
    // 第二次就是 a2
    // ... 直到最后, a10. 然后结束.
next

追问

　　哦,这个就是
　　for i=1 to 100
cells(1,i)xxxxxxxxxxxxxxxxxxxx
next
的意思是吧

追答

对. 应该是 for i = 1 to 10 (按我例子中的意思)
使用for 你要自己控制, 从哪到哪

for each的话, 就简单了, 就是从头到尾遍历一遍, 不用自己控制了.

Answer 2

for each 变量 in 容器
next

for each dyg in range("a1:e10")
msgbox dyg.value
next
遍历a1到e10的每一个单元格的值.你可以事先往里面填数.
容器可以改成工作表,工作簿
如果需要溯及既往,for循环可以用循环节-1来处理,for each就没办法了.
foreach代码更简洁.