如果值尚不存在，我如何连接字符串

Question

我有一个带有大量颜色的csv数据库，我想要的是连接所有独特的颜色并用逗号分隔它们。我需要以某种方式只包含一次字符串值。见下面的例子......

COLOR
红
红
绿色
蓝色
红
蓝色
绿色
银

我需要输出为 -

红，绿，蓝，银

Answer 1

如果您可以将数据输入Excel，这将有效（虽然我知道它不会'直接'回答您的问题，也许它会让您开始。）

Sub UniqueColors()

Dim Dictionary As Object
Set Dictionary = CreateObject("Scripting.Dictionary")

For Each Item In Range("A1:A8")
    If Not Dictionary.exists(Item.Value) And Item.Value <> "" Then
        Dictionary.Add Item.Value, Item.Address
    End If
Next

Range("B1") = Join(Dictionary.keys, ",")
Set Dictionary = Nothing

End Sub

您需要调整范围。希望有所帮助！