No.1

ForEach 循环语句是很多编程语言里的一个通用语句，使用方法大同小异，对于熟悉编程的人来说，并不是什么难理解的。

下面介绍一下其重点应用方法。

No.2

语法如下图所示

解释

如果_组_ 中有至少一个元素，则进入“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中的值，如果值为””则退出循环。

本节示例对表中的数值进行乘法和加法计算，具体代码可看下图：

No.3

循环语句应用十分普遍，所以要学会并熟练运用循环语句是vba编程很重要的一个技能，如果要做一个优秀的应用系统，肯定离不开循环语句的使用。