13-程序流程控制——For—Each 循環(huán)語句

excel交流

有了前面對循環(huán)一詞的理解，這里我們不用再多說，如果你知道了For—next語句的工作原理，這里再來學習For—each循環(huán)以及下面我們接著要講的句式，那就相當簡單了，同樣的工作原理。
學會了吃蘋果，那么離會吃梨的道路還會遠嗎？
呵呵，只是開個小小的玩笑，下面我們繼續(xù)，首先來看看For—Each語句的句式：

For Eacn 元素變量 In 對象集合或數(shù)組名稱
      語句塊1
      [Exit For]
      語句塊2
next 元素變量

和上面For—next句式是一樣的工作原理。
這里的“元素變量”是用來遍歷集合或數(shù)中中元素的變量，它從集合或數(shù)組的第一個元素開始，直到最后一個元素，然后退出循環(huán)。

這里我們舉個例子，把當前工作薄中工作表的名稱寫在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
   

復(fù)制代碼