エクセルで項目をひとつずつ抽出したい

エクセルで例えば，

リンゴ
桃
リンゴ
みかん
リンゴ
リンゴ
みかん
桃
リンゴ
…

となっていて，それぞれひとつずつ
みかん
桃
リンゴ
とリストアップしたいのですが，どのようにしたらいいでしょうか？

もしかしたら過去に同様の質問が出ているのかもしれませんが，検索のキーワードが思いつかないため，質問いたしました。

No.1 ベストアンサー 回答者： gyouda1114 回答日時： 2009/04/29 13:16

フィルタオプションの設定で「重複するレコードタを無視する」にチェック

フィルタオプションで特定の項目(列)を抽出する
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filte …

見えているセルだけコピーしたい
http://www.relief.jp/itnote/archives/000067.php

この回答へのお礼

ありがとうございました。解決しました。

お礼日時：2009/04/29 16:39

No.3 回答者： ki-ro-ro 回答日時： 2009/04/29 14:08

Excel2007即効テクニック

重複しないリストを作る
http://pc.nikkeibp.co.jp/article/NPC/20070328/26 …

旧バージョンの操作方法は?
http://pc.nikkeibp.co.jp/article/NPC/20060214/22 …

エクセルなどソフトの使い方の質問は、若干の違いがありますのでバージョンを示してした方が良いです。

この回答へのお礼

ありがとうございました。参考になりました。

お礼日時：2009/04/29 16:41

No.2 回答者： hige_082 回答日時： 2009/04/29 13:46

マクロでよければ

Sub test()
Dim i, ii
For i = 1 To Range("a65536").End(xlUp).Row
For ii = 1 To Range("c65536").End(xlUp).Row
If Cells(i, 1).Value = Cells(ii, 3).Value Then Exit For
Next ii
If ii = Range("c65536").End(xlUp).Row + 1 Then
If Range("c65536").End(xlUp).Value = "" Then
Range("c65536").End(xlUp).Value = Cells(i, 1).Value
Else
Range("c65536").End(xlUp).Offset(1).Value = Cells(i, 1).Value
End If
End If
Next i
End Sub

この回答へのお礼

ありがとうございました。参考になりました。

お礼日時：2009/04/29 16:40