Excel VBA解读（150）： 数据结构—集合的基本使用

Sub MyPro()
    '声明并创建集合
   Dim colMy As New Collection
    '添加元素
   colMy.Add "完美Excel"
   colMy.Add "excelperfect"
    '传递给过程
   YourPro colMy
End Sub
'接受集合参数
Sub YourPro(ByRef colYou AsCollection)
   Dim item As Variant
   For Each item In colYou
        Debug.Print item
   Next item
End Sub
注意到，在被调用过程YourPro中的参数colYou为ByRef，即传递引用，这意味着在被调过程中对集合的更改，在主调过程中该集合将会同时被修改。
还可以从自定义函数中返回集合，如下面的示例代码：
Sub Main()
    '声明集合变量
   Dim colTest As Collection
   Dim item As Variant
    '将函数过程中返回值赋给变量
   Set colTest = MyCollection
    '输出集合元素
   For Each item In colTest
        Debug.Print item
   Next item
End Sub
Function MyCollection() As Collection
    '声明并创建集合
   Dim colMy As New Collection
    '添加元素
   colMy.Add "完美Excel"
   colMy.Add "excelperfect"
    '返回集合
   Set MyCollection = colMy
End Function