使用foreach循环输出结果（ForEach循环语句使用方法介绍）
使用foreach循环输出结果（ForEach循环语句使用方法介绍）其中变量x，为暂存变量，为Variant可变类型变量。Dim xArr x y xArr=Array("A" "B" "C") For Each x in xArr y=x if y="B" then exit for Next x上面代码解释为，遍历数组xArr，当遍历到数组中有一个字符为"B"的值时，就退出循环。如果_组_ 中有至少一个元素，则进入“For…Each”**** 块。在进入循环后 循环中的所有语句都将对_group_中的第一个元素执行。如果_组_ 中有多个元素，则继续为每个元素执行循环中的语句。 组中不再有元素时，退出循环并继续执行“Next”**** 语句后的语句。遍历数组
No.1ForEach 循环语句是很多编程语言里的一个通用语句，使用方法大同小异，对于熟悉编程的人来说，并不是什么难理解的。
下面介绍一下其重点应用方法。
语法如下图所示
解释
如果_组_ 中有至少一个元素，则进入“For…Each”**** 块。在进入循环后 循环中的所有语句都将对_group_中的第一个元素执行。
如果_组_ 中有多个元素，则继续为每个元素执行循环中的语句。 组中不再有元素时，退出循环并继续执行“Next”**** 语句后的语句。
遍历数组
Dim xArr x y
xArr=Array("A" "B" "C")
For Each x in xArr
y=x
if y="B" then exit for
Next x
上面代码解释为，遍历数组xArr，当遍历到数组中有一个字符为"B"的值时，就退出循环。
其中变量x，为暂存变量，为Variant可变类型变量。
当然ForEach 循环也可以遍历对象，如下例子在Range对象中进行遍历。
遍历数组
Dim cell as Range xcell Range
set cell=Range("A1:A10")
For Each xcell in cell
if xcell.value="" then Exit For
Next xcell
上面例子中遍历Range对象cell中的值，如果值为""则退出循环。
本节示例对表中的数值进行乘法和加法计算，具体代码可看下图：
循环语句应用十分普遍，所以要学会并熟练运用循环语句是vba编程很重要的一个技能，如果要做一个优秀的应用系统，肯定离不开循环语句的使用。
欢迎关注、收藏
---END---
