13-程序流程控制——For—Each 循环语句

excel交流

有了前面对循环一词的理解，这里我们不用再多说，如果你知道了For—next语句的工作原理，这里再来学习For—each循环以及下面我们接着要讲的句式，那就相当简单了，同样的工作原理。
学会了吃苹果，那么离会吃梨的道路还会远吗？
呵呵，只是开个小小的玩笑，下面我们继续，首先来看看For—Each语句的句式：

For Eacn 元素变量 In 对象集合或数组名称
      语句块1
      [Exit For]
      语句块2
next 元素变量

和上面For—next句式是一样的工作原理。
这里的“元素变量”是用来遍历集合或数中中元素的变量，它从集合或数组的第一个元素开始，直到最后一个元素，然后退出循环。

这里我们举个例子，把当前工作薄中工作表的名称写在A列，程序为：

1. 
   
2. Sub shtname()
   
3. Dim i As Integer, sht As Worksheet
   
4. i = 1
   
5. For Each sht In Worksheets
   
6.     Cells(i, 1) = sht.Name
   
7.     i = i + 1 '让写入名称的单元格下移一行
   
8. Next
   
9. End Sub
   

复制代码