VBA - 如何将集合添加到集合的集合中

VBA - 如何将集合添加到集合的集合中

vba
Sub AddCollectionToCollection()
    ' 创建两个集合
    Dim collection1 As Collection
    Dim collection2 As Collection
    Set collection1 = New Collection
    Set collection2 = New Collection
    
    ' 向第一个集合添加元素
    collection1.Add "Apple"
    collection1.Add "Banana"
    collection1.Add "Orange"
    
    ' 向第二个集合添加元素
    collection2.Add "Cat"
    collection2.Add "Dog"
    collection2.Add "Elephant"
    
    ' 创建一个集合来存储其他两个集合
    Dim collection3 As Collection
    Set collection3 = New Collection
    
    ' 将第一个集合添加到第三个集合中
    collection3.Add collection1
    
    ' 将第二个集合添加到第三个集合中
    collection3.Add collection2
    
    ' 遍历第三个集合并输出元素
    Dim i As Integer
    For i = 1 To collection3.Count
        Dim innerCollection As Collection
        Set innerCollection = collection3(i)
        
        Dim j As Integer
        For j = 1 To innerCollection.Count
            Debug.Print innerCollection(j)
        Next j
    Next i
End Sub