Excel VBA高级编程:为什么需要枚举算子?

:为什么需要枚举算子?

每次 Each ... Next 开始时，通过发出一新枚举算子，集合允许嵌套的枚举。例如，假定在变量 mcolStrings 中有一个 Collection 对象的引用，并且该集合只包含字符串。下列代码打印两个不同字符串的所有组合：

Dim vnt1 As Variant
Dim vnt2 As Variant
For Each vnt1 In mcolStrings
   For Each vnt2 In mcolStrings
      If vnt1 <> vnt2 Then
         Debug.Print vnt1 & " " & vnt2
      End If
   Next
Next
详细信息请参阅本章后面的“创建自己的集合类”。