エクセルVBAで文字列の重複を削除する方法?
VBAでの質問でしゅ。エクセルは2000です。
変数MyStrに全角カンマで区切られた文字列データが10種類程度あります。
現在、ある条件のもとに、MyStr=MyStr & Cell(i,2) & "、"のように取り込んで、最後にMyStr=Left(MyStr, Len(MyStr) - 1) で一番最後の「、」を削除しています。
例えば、MyStrの中身は、
OK建設株式会社、Goo工業合資会社、MM商事有限会社、AA合名会社、株式会社BB企画、OK建設株式会社、CC工業合資会社、DD商事有限会社、EE合名会社、株式会社BB企画
のような感じです。この中には重複したデータがある可能性があります。(例ではOK建設株式会社と株式会社BB企画)
これを重複を排除し、変数MyStrの中身を、
OK建設株式会社、Goo工業合資会社、MM商事有限会社、AA合名会社、株式会社BB企画、CC工業合資会社、DD商事有限会社、EE合名会社
と変える方法はないでしょうか?
あるいは、変数 MyStrにデータを取り込む際にすでにMyStrに入っているデータは除くような方法でもかまいません。
お知恵をお貸しくださいませ。 (o。_。)oペコッ.