[[20050110011654]]　『データから３件以上重複しているものを抽出したい』（とみん）　ページの最後に飛ぶ

『データから３件以上重複しているものを抽出したい』（とみん）

初めてこちらで質問させていただきます。よろしくお願いします。

Ａ　　　　　Ｂ　　　　　　　　Ｃ　　　　　　　　　　　　Ｄ　　　　　　　　　Ｅ

＊　Ａ株式会社　　　○○県○○市・・・　　　　00001

　　Ａ株式会社　　　○○県○○市・・・　　　　00002

＊　Ｂ株式会社　　　○○県○○市・・・　　　　00001

　　Ｂ株式会社　　　○○県○○市・・・　　　　00002

　　Ｂ株式会社　　　○○県○○市・・・　　　　00003

＊　Ｃ株式会社　　　○○県○○市・・・　　　　00001

　　Ｃ株式会社　　　○○県○○市・・・　　　　00002

　　Ｃ株式会社　　　○○県○○市・・・　　　　00003

　　Ｃ株式会社　　　○○県○○市・・・　　　　00004

　　　　　・　　　　　　　　・　　　　　　　　　　・

上のようなデータベースから、データが３行以上ある会社について別シートに移したいと考えています。

（上の例だと、Ｂ株式会社とＣ株式会社が該当します）

既にデータは会社順に並べ替えられています。

Ａ列の「＊」は「その会社のデータの先頭行であること」を表し、Ｄ列の数字（実際は文字列ですが）は「その会社の何番目のデータか」を表しています。

「＊」がついた行から、次の「＊」の前の行までは同じ会社のデータとしてシートを移すときはセットにしておきたいです。

Ｅ列に何らかの表示ができれば、オートフィルタで抜き出すことができるかと思うのですが。

データは５万件ほどあり、処理が重いです。

「データが２件重複している会社」と、「３件以上重複している会社」にシートを分けたい、というのが作業の趣旨です。

つたない説明で申し訳ないのですが、どうぞお知恵を貸してください。

[エクセルのバージョン]Excel2000[OSのバージョン]Windows2000

 E1=IF(COUNTIF($B$1:B1,B1)=2,2,IF(COUNTIF($B$1:B1,B1)=3,3,""))
 上記の式で2件と3件以上の区別ができます。

 D列がすでに入っているなら
 D列を基にオートフィルタすれば出来ますけどね(^_^A;
 （川野鮎太郎）

質問の仕方がわかりづらくて申し訳ありません。

Ｄ列には既に重複数が入っています（文字列ですが、数値にも関数で変換できますよね？）

Ｄ列でオートフィルタも考えたのですが、それだと「３以上」の行だけを抜き出す形になってしまい、１・２件めが残ってしまいます。

３件以上ある会社については、00001から全てに印を付ける方法はないものでしょうか。

上の例でいうと、
Ｂ株式会社は3～5行目、Ｃ株式会社は6～9行目　ということになります。

 重複数なら、空いている列に「=COUNTIF($B$1:$B$1000,B1)」はどうですか？
 3以上に*なら　=IF(COUNTIF($B$1:$B$1000,B1)>=3,"*","")　かな？
　(Hatch)

重複数が出ましたので、これで3以上をオートフィルタすればできそうです。

実際のデータは、会社名が必ず同じかどうか不明なので、

（支店名入っていたり抜けていたり・・・など）

できればＤ列を基準にしたいのですが、無理そうですよね＾＾；

明日、会社で実際のデータを使ってトライしてみます。ありがとうございます。

 D列に入っているものがあるのであれば、D列のオートフィルタで
 00002を選択すれば 2件重複の分だけ、00003を選択すれば 3件重複の分だけになるのでは？

 (￣０￣;アッ　勘違い・・・。ダブって出てくるからダメって事ですね。
　であれば、当初の私の式で出来るはずですけどね。
 またもや勘違いでし＿/￣|○ il||li
 2件だけのものも抽出しないといけなかったですね。失礼しました。
 （川野鮎太郎）

川野さま、Hatchさま、

ご意見を参考にしつつ、ふとひらめいた下記の数式で解決しました。

=IF(OR(D1>=3,AND(D1=1,D3=3),AND(D1=2,D2=3)),"*"," ")

ありがとうございました！

コメント返信：