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
   

复制代码

道勤主机提供365天*24小时全年全天无休、实时在线、零等待的售后技术支持。竭力为您免费处理您在使用道勤主机过程中所遇到的一切问题! 如果您是道勤主机用户，那么您可以通过QQ【792472177】、售后QQ【59133755】、旺旺【诠释意念】、微信：q792472177免费电话、后台提交工单这些方式联系道勤主机客服！ 如果您不是我们的客户也没问题，点击页面最右边的企业QQ在线咨询图标联系我们并购买后，我们为您免费进行无缝搬家服务，让您享受网站零访问延迟的迁移到道勤主机的服务！