EXCEL VBA中如何使用For... ...Each循环。

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循环在数组的元素中循环，显示数组中的每个元素，运行程序，显示结果如下：