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編程很重要的一個技能，如果要做一個優秀的應用系統，肯定離不開循環語句的使用。