色の多いcsvデータベースがあります。すべての固有の色を連結し、コンマで区切ってください。私はどうにかして文字列値を一度だけ含める必要があります。
- 私はそのまま出力にこれを必要とするでしょう値がまだ存在しない場合にのみ、文字列を連結するには
COLOR
赤
赤
緑
青
赤
青
緑
銀
...以下の例を参照してください。赤、緑、青、銀
色の多いcsvデータベースがあります。すべての固有の色を連結し、コンマで区切ってください。私はどうにかして文字列値を一度だけ含める必要があります。
- 私はそのまま出力にこれを必要とするでしょう値がまだ存在しない場合にのみ、文字列を連結するには
COLOR
赤
赤
緑
青
赤
青
緑
銀
...以下の例を参照してください。赤、緑、青、銀
データを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
範囲を調整する必要があります。希望が助けてくれる!
おそらく、 'End Sub'の前に' Set Dictionary = Nothing'を追加することをお勧めします。それに応じてコードを調整しました。 – Brian
あなたは正確に達成しようとしていることをさらに詳しく説明できますか?このプロセスを一度実行する必要がある場合は、Excelに組み込まれた「重複を削除する」機能を使用できます。そうでない場合は、PowerShellを使用してこれを実現したいかもしれません。 –
VBAソリューションは開かれていますか? – Mrig
それは、ありがとうございます。 –