- ベストアンサー
エクセルで項目をひとつずつ抽出したい
エクセルで例えば， リンゴ 桃 リンゴ みかん リンゴ リンゴ みかん 桃 リンゴ … となっていて，それぞれひとつずつ みかん 桃 リンゴ とリストアップしたいのですが，どのようにしたらいいでしょうか？ もしかしたら過去に同様の質問が出ているのかもしれませんが，検索のキーワードが思いつかないため，質問いたしました。
- Jerry_info_svs
- お礼率59% (194/328)
- オフィス系ソフト
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
フィルタオプションの設定で「重複するレコードタを無視する」にチェック フィルタオプションで特定の項目(列)を抽出する http://www.eurus.dti.ne.jp/~yoneyama/Excel/filter3.htm#tokutei 見えているセルだけコピーしたい http://www.relief.jp/itnote/archives/000067.php
その他の回答 (2)
- ki-ro-ro
- ベストアンサー率49% (106/213)
Excel2007即効テクニック 重複しないリストを作る http://pc.nikkeibp.co.jp/article/NPC/20070328/266652/ 旧バージョンの操作方法は? http://pc.nikkeibp.co.jp/article/NPC/20060214/229243/ エクセルなどソフトの使い方の質問は、若干の違いがありますのでバージョンを示してした方が良いです。
お礼
ありがとうございました。参考になりました。
- hige_082
- ベストアンサー率50% (379/747)
マクロでよければ 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
お礼
ありがとうございました。参考になりました。
お礼
ありがとうございました。解決しました。