EXCELである列を上から順にチェックし、重複値がある場合に一方のデータを移動する方法

次のようなEXCELシートがあります。

FAX　　　　　　　　名前
01-1111-1111　　　山田
01-2222-2222　　　鈴木
01-2222-2222　　　鈴木一郎
01-3333-3333　　　中村
01-4444-4444　　　吉田
01-4444-4444　　　吉田家
01-4444-4444　　　吉田五郎
01-5555-5555　　　河野
01-6666-6666　　　井上

・データは全部で6000件くらいあります。
・データは上記のようにFAX番号でソートされてます
・FAXが一致しても名前は少し違うことがあります。
　（EX. 上記では吉田と吉田家と吉田五郎など）

【やりたいこと】
FAX番号が重複している場合に、重複データをシート内の別の場所に移動する。

FAX　　　　　　　　名前
01-1111-1111　　　山田
01-2222-2222　　　鈴木
01-3333-3333　　　中村
01-4444-4444　　　吉田
01-5555-5555　　　河野
01-6666-6666　　　井上

シートの下のほうへ移動された
↓
01-2222-2222　　　鈴木一郎
01-4444-4444　　　吉田家
01-4444-4444　　　吉田五郎

上記のようなことを実現する手法をお教えいただけますでしょうか？
現在、実務上非常に困っています。
EXCEL使い様、よろしくお願いいたします。

No.1 ベストアンサー 回答者： shinkun0114 回答日時： 2006/03/10 15:49

FAX番号がA列にあるものとします。

1.A列の前に1行挿入します。
　FAX番号はB列、名前はC列になります。
2.A2セルに以下の式を入れます
　=B1=B2
　さらにこの式をデータ数分、下にコピーします。
　重複している番号の前に「TRUE」が表示されます。
3.[ A ]をクリックしてA列全体を範囲指定し、
　右クリックして「コピー」。
　さらに右クリックして「形式を選択して貼り付け」
　「値」にチェックを入れて[OK]を押します。
4．A2セルからデータの最後尾までを範囲指定し、
　データの並び替えを行います。
　最優先されるキー　A列　昇順
　2番目に優先されるキー　B列　昇順

この回答へのお礼

どうもありがとうございます！
教えていただいた方法で見事に出来ました！！
非常に助かりました！

お礼日時：2006/03/10 16:19

No.2 回答者： MrBoon 回答日時： 2006/03/10 16:04

手法を説明致します。

　★作業する前に、必ず元のファイルを複製してから実行して下さい。
１）判別式の作成
　　名前　の右側の列（の1行目）に、
　　=if(自分の行のFAXのセル番号=1つ上の行のFAXのセル番号,1,0)
　　と言う式を入れます。
　　　※実際には　=if(A2=A1,1,0)　と言う感じの式になります。
　　　※この式は、1行上のFAX番号と同じなら「1」、
　　　　　　　　　　　　　　　　　違うなら「0」を示す式です。
２）判別式の下方向コピー
　　上記１）で作った1行目の式のセルをコピーし、
　　データが入力されている6000ぐらいの行の下まで、
　　ペーストします。
　　　※すると、FAX番号がダブっている行にはすべて「1」が出ます。
　　　　ダブっていない行には「0」が表示されます。
３）判別結果の値ペースト
　　上記１）と２）の式が入っている列全体をコピーし、
　　編集メニューの「形式を選択して貼り付け」を選び、
　　左の上から3つ目の「値」ボタンを押して「OK」を押します。
４）重複している行を下にまとめる
　　FAX番号が入力されている行を全部選び、
　　データメニューの「並べ替え」を選び、
　　最優先されるキーを、判別式の入っている列（仮にC列とします）
　　の「昇順」で並べ替えます。
５）結果の確認
　　上の方にある、判別式（仮にC列とします）に「0」の入っている
　　全ての行が、重複を除外したものになります。
　　下の方にある、判別式（仮にC列とします）に「1」の入っている
　　全ての行は、重複している2個目以上の行なので、
　　不要なら削除して下さい。

もし失敗した場合は、元のファイルから上の手順を再度実施して下さい。何度か試せば、この手順に慣れてきますので、じゃんじゃん重複を除外して下さい。

参考になれば幸いです。

参考URL：http://arena.nikkeibp.co.jp/tec/excel/20040308/1 …

この回答へのお礼

ていねいに手順を解説いただき、本当にありがとうございます！！この方法も試してみます！

お礼日時：2006/03/10 16:21