値がまだ存在しない場合にのみ、文字列を連結するには

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 

範囲を調整する必要があります。希望が助けてくれる！