vba - 用逗号(，)拆分字符串并将对象添加到集合中

Question

我有一个要求，我有一个大字符串。

例如:abc,def,ghi
我想拆分这些字符串并将它们放在一个集合中。

所需输出:

ExampleCollection
abc
def
ghi

如何在 VBA 中执行此操作。

Answer 1

就像是:

Sub marine()
    Dim s As String, c As Collection
    Dim arr

    s = "abc,def,mbs"
    arr = Split(s, ",")
    Set c = New Collection

    For Each a In arr
        c.Add a
    Next a
End Sub