Excel：データの構成要素を取り出すには

質問

質問タイトルをなんと書いてよいのかわからなかったのですが、
下記のようなことをしたいのですが、関数でできますでしょうか？
関数ではなくても他に方法があれば教えてください

セルに

りんご
りんご
みかん
とまと
りんご
みかん

と入っていた場合に、別のセルに「りんご、みかん、とまと」という風に要素だけ取り出したいのです。
フィルタオプションの「重複レコードを無視する」は利用せずにできますでしょうか？

回答No.2

zap35 · ベストアンサー

A列に品名が入力されているとき、任意の空きセルに以下の式を貼り付けて下方向にコピーしてください
　=INDEX(A:A,SMALL(INDEX(SUBSTITUTE((MATCH($A$1:$A$6,A:A,0)=ROW($A$1:$A$6))*1,0,10^5)*ROW($A$1:$A$6),),ROW(A1)))

でも上記式だと、項目がないところはエラーになります。エラーを表示させないようにするには条件判定を追加した以下の式にします
=IF(ROW(A1)<=COUNT(INDEX(1/(MATCH($A$1:$A$6,A:A,0)=ROW($A$1:$A$6)),)),INDEX(A:A,SMALL(INDEX(SUBSTITUTE((MATCH($A$1:$A$6,A:A,0)=ROW($A$1:$A$6))*1,0,10^5)*ROW($A$1:$A$6),),ROW(A1))),"")

お礼

ありがとうございます！
ためしにA列にデータを入れて貼り付けるとたしかにこのとおりになりました！
実際に使いたいデータにあわせてセル範囲を変えてみたらうまくいかなかったのですが…頑張ってみます＾＾

回答No.1

marbin

あんまり詳しくないのですが、
VBAでDictionaryを使う、というのでいけるとおもいます。

お礼

ありがとうございます！
Dictionaryを検索して調べてみましたが、これでいけそうです。
すばやい回答をありがとうございました。