VBA中的集合

Sub testSet()
    Dim c As New Collection
    c.Add ("A")
    c.Add (2)
    c.Add ("A")
    
    For i = 1 To c.count
        Debug.Print (c.Item(i))
    Next
End Sub

output:
A
2
A