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