2016-04-22 10 views
0

色の多いcsvデータベースがあります。すべての固有の色を連結し、コンマで区切ってください。私はどうにかして文字列値を一度だけ含める必要があります。

- 私はそのまま出力にこれを必要とするでしょう値がまだ存在しない場合にのみ、文字列を連結するには

COLOR









...以下の例を参照してください。赤、緑、青、銀

+0

あなたは正確に達成しようとしていることをさらに詳しく説明できますか?このプロセスを一度実行する必要がある場合は、Excelに組み込まれた「重複を削除する」機能を使用できます。そうでない場合は、PowerShellを使用してこれを実現したいかもしれません。 –

+0

VBAソリューションは開かれていますか? – Mrig

+0

それは、ありがとうございます。 –

答えて

3

データを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 

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

+0

おそらく、 'End Sub'の前に' Set Dictionary = Nothing'を追加することをお勧めします。それに応じてコードを調整しました。 – Brian

関連する問題