エクセルで値を指定しての検索が出来ない場合の同じ値のセルをすべて抽出す

エクセルで値を指定しての検索が出来ない場合の同じ値のセルをすべて抽出する方法

エクセルのＡ列に上から順に
Ａ１みかん
Ａ２リンゴ
Ａ３みかん
Ａ４パイナップル
Ａ５マンゴー
Ａ６みかん
Ａ７パパイヤ
Ａ８リンゴ
Ａ９バナナ
Ａ10グレープフルーツ
Ａ11みかん
Ａ12レモン

という具合に１０００行くらいあって同じ値のみを抽出する方法を教えてください。

上記の場合

Ａ１みかん
Ａ３みかん
Ａ６みかん

Ａ２リンゴ
Ａ８リンゴ

という具合に表示してほしい。
同じ値の行は最大３つ（３種類×３行）、又は２つ（２種類×２行）です。
後の９８０行くらいはそれぞれ値が違います。
また同じ値が何で有るのかも不明です。
上記例ではみかんとリンゴですが、そうだとは限りません。
レモンかもしれないし、マンゴーかもしれない。
またその１０００行の中の値の種類も何種類あるのか不明です。
最悪１０００種類で重複は無いかも知れない。
よって値を指定しての検索は出来ません。

ソートして昇順にとかにすれば同じ値は上下に並びますが
実際には、みかん　とかではなく英数字２０ケタなので目で見ただけで
上下に並んでいるのは見つけれません。
12A3456D620X834F7623
14B63795V63879576235
167353F46856G6983639
167353F46856G6983639
16C342D374A755C65833
１０００行の中からこのように上下が同じ値の行を見つけるのは難しいです。
簡単に発見する方法はありますか？

No.3 ベストアンサー 回答者： akiomyau 回答日時： 2010/06/14 15:35

例えばA列にデータがあり

任意の列に以下のような式を入れます。
=IF(COUNTIF(A:A,A1)>1,"○","")
この式を縦方向にコピーします。
そうすると重複したセルには○が付きます。
必要に応じてオートフィルタ等を使い抽出してはどうでしょうか。

この回答へのお礼

簡単な方法で、わかりやすく、実践して望んでいた事が出来ました。
○が付くので、あとは並べかえとかで、いろいろな編集もで来ました。
ありがとうございました。

お礼日時：2010/06/23 11:10

No.5 回答者： KURUMITO 回答日時： 2010/06/15 07:05

回答Ｎｏ4です。

一部に不具合がありましたので一部を訂正します。
Ｂ1セルに0を入力することをやめて空のままにします。
Ｅ2セルへの入力の式は次の式にして下方にオートフィルドラッグします。

=IF(ROW(A1)>MAX(B:B),"",IF(ROW(A1)<=MIN(B:B),INDEX(A:A,MATCH(MIN(B:B),B:B,0)),IF(COUNTIF(B:B,ROW(A1)-1)>0,INDEX(A:A,MATCH(SMALL(B:B,RANK(ROW(A1)-1,B:B,1)+1),B:B,0)),E1)))

訂正する部分は以上の2点です。遅くなっての訂正でごめんなさい。

No.4 回答者： KURUMITO 回答日時： 2010/06/14 16:55

お示しのデータはすべて2行目から下の行に有るとします。

なお、Ａ列では果物名が入力されており、もちろんＡ１，Ａ2などの番地はない状態とします。作業列を作って対応します。
Ｂ1セルには0を入力したのちに、Ｂ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(AND(COUNTIF(A:A,A2)>1,COUNTIF(A$2:A2,A2)=1),COUNTIF(A:A,A2)+MAX(B$1:B1),"")

Ｃ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(COUNTIF(A:A,A2)>1,A2&"/"&COUNTIF(A$2:A2,A2),"")

お求めの表はＥ列とＦ列に表示させることにしてＥ列には果物の名前が、Ｆ列にはその果物名がは入っているセル番地を表示させることにします。

Ｅ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(ROW(A1)>MAX(B:B),"",INDEX(A:A,MATCH(ROW(A1)-1,B:B,1)+1))

Ｆ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(E2="","","A"&MATCH(E2&"/"&COUNTIF(E$2:E2,E2),C:C,0))

これでＡ列で重複のあるものはすべて順序よく整列されて表示され、そのセル番地も表示されますね。一度お試しください。

No.2 回答者： qyukip 回答日時： 2010/06/14 15:32

まずＡ列を選択します。

データ→フィルタ→オートフィルタでＡ列にオートフィルタをかけます。
次にデータ→フィルタ→フィルタオプションの設定を選択します。
重複するレコードは無視するにチェックを入れます。
以上です。やってみてください

No.1 回答者： mu2011 回答日時： 2010/06/14 15:32

次の方法は如何でしょうか。

オートフィルタで抽出するので、見出し行と抽出列（仮にＢ列）を新たに追加します。
（１）見出し行を挿入、仮にＡ１に「項目名」、「Ｂ１」に重複と入力
（２）B2に=COUNTIF(A:A,A2)>1を設定、下方向にコピー（又は、B2セル右枠下の■をダブルクリック）
（３）オートフィルタから重複列のフィルタボタン押下→TRUEを選択