我怎样才能连接string，只有当价值不存在

我有一个csv数据库加载颜色，我想要的是连接所有独特的颜色，并用逗号分隔它们。 我需要以某种方式只包括string值一次。 看下面的例子…

颜色
红
红
绿色
蓝色
红
蓝色
绿色
银

我需要这个输出为 –

红，绿，蓝，银

Answer 1

如果你可以把数据导入到Excel中，这将会起作用（尽pipe我知道它不会“直接”回答你的问题，也许它会让你开始）。

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 

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