EXCEL:文字色のついたセルのみを移動

はじめまして
excelに電話番号の一覧がA1～A1000まであるとします。
この中には重複のものもあるので条件付書式でcountifを使い重複データは文字色が赤になるようにしてあります。

重複していないものの一覧を作成するためには重複データを削除ないし他の列への移動を行う必要があるのですがこれは可能でしょうか？色を見て手作業で削除するのには時間がかかりすぎてしまって。。。

文字色という点に固執する必要はなく単に重複データをA列から削除できれば大丈夫です。

どうぞよろしくお願い致します

No.1 ベストアンサー 回答者： ponta20 回答日時： 2006/01/10 07:28

Q1-A1000を選択し、データ→フィルタ→オートフィルタ

でボックスが出てくるので、並び替え

そして、重複する電話番号が出てくるので、重複しているのを削除すれば大丈夫です。

電話番号の順番が定められていれば、まず、電話番号の左側に1-1000のセルを作り、それからA1-A1000(順番)とB1-B1000(電話番号)を選択し、同じように実行すれば、何番と何番が重複しているか分かり、さらに、削除した後も、A(順番)のボックスで、降順にすれば、元の順番に戻ります。
その後にA(順番)を削除すれば、電話番号だけになります。

No.4 回答者： imogasi 回答日時： 2006/01/10 19:44

Ｓｈｅｅｔ１のA2:A8に

A列　　Ｂ列
a1
b2
c3
b
d4
f5
g6
Ｂ列は作業列で、式は
=IF(COUNTIF($A$2:A2,A2)=1,MAX($B$1:B1)+1,"")
と入れて下方向に複写します。結果が、上記Ｂ列です。
Ｓｈｅｅｔ２に行って
Ａ２に
=INDEX(Sheet1!$A$2:$A$100,MATCH(ROW()-1,Sheet1!$B$2:B100,0),1)
と入れて、Ｓｈｅｅｔ１のＢ列の最大値の行数だけ式を複写します。
結果
Ｓｈｅｅｔ２のＡ２から
a
b
c
d
f
g
となります。
（imogasi方式）
Ｓｈｅｅｔ１で初出の文字列に連番を振る。
目障りなら別シート（Ｓｈｅｅｔ３のＡ列など）に持っていけます・
=IF(COUNTIF(Sheet1!$A$2:A2,Sheet1!A2)=1,MAX($A$1:A1)+1,"")
その場合はＳｈｅｅｔ２の式は
=INDEX(Sheet1!$A$2:$A$100,MATCH(ROW()-1,Sheet3!$A$2:A100,0),1)
Ｓｈｅｅｔ２でその連番を行番号に関連付けて、もってくる。

No.3 回答者： Flak45 回答日時： 2006/01/10 08:10

http://www.morgan.co.jp/kiso/kiso_ex03.htm

MORGANというところで配布しているフリーソフトです。

エクセルへのアドオンですので、一度導入すると削除できませんが、自分では「全角英数→半角英数変換」「半角カナ→全角カナ」など便利な機能が多いので愛用しています。

No.2 回答者： papayuka 回答日時： 2006/01/10 08:03

1行目がタイトル行であるという前提で。

（タイトル行がなければ行を挿入して作る）

データ－フィルタ－フィルタオプションの設定で「重複するレコードは無視する」にチェックを入れて実行します。
なお、使用している表がA列だけで無い場合は、A列とB列の間に空白列を挿入してから実行します。

これで重複しないデータが出来るので挿入した空白列を削除してから、抽出データをコピーして別のシートに貼り付けます。

データ－フィルタ－全て表示　で元の状態に戻ります。