1、通过举例认识For... ...Each循环。
下面这段代码用于显示工作薄中的所有工作表对象。
Sub Worksheetname()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Name
Next
End Sub
运行程序，显示结果如下：
2、运用For... ...Each循环显示数组中的元素。
Sub animal()
Dim animals As Variant
Dim item As Variant
animals = Array("cat", "dog", "elephant", "monkey", "kangaroo")
For Each item In animals
Debug.Print item
Next
End Sub
这个程序创建了一个数组，然后使用For ... ...Each循环在数组的元素中循环，显示数组中的每个元素，运行程序，显示结果如下：
