エクセルにて複数のセルの組み合わせの重複を削除するには?

　エクセルの重複セルの削除において、通常、条件が一つの場合は出来るのですが、複数セルの組み合わせの場合、どのようにすればいいでしょうか?

　例えば、下記のように項目が並んでいるとします
　　　　Ａ　　　　　Ｂ　　　Ｃ　　　　Ｄ
　１　メーカー　　車種
　２　トヨタ　　クラウン
　３　トヨタ　　アルファード
　４　トヨタ　　カローラ
　５　トヨタ　　クラウン
　６　ホンダ　　シビック
　８　ホンダ　　オデッセイ
　９　ホンダ　　アコード
１０　日産　　　サニー
１１　トヨタ　　クラウン
１２　日産　　　スカイライン
１３　日産　　　セドリック
１４　ホンダ　　シビック
　↓　　　↓
　　このような配列でデーター項目セルが１万ほどあります。
　例えば、このうちメーカーがトヨタで車種がクラウン（Ａ２＋Ｂ２）
の組み合わせの重複を見つけ、重複行を削除するにはどのようにすればよいでしょうか?
メーカーだけの重複を見つけ、重複行の削除をするには
　いつもは=IF(COUNTIF($A$2:A2)>1,NA(),"")のような方法でNA()を返し、ジャンプ→エラー値で一括削除しています。
　このような２つの組み合わせの場合、どのような式を立てれば良いでしょうか?教えていただけないでしょうか?

No.5 ベストアンサー 回答者： imogasi 回答日時： 2006/11/24 22:42

（１）VBAを使う

（２）SortしてVBAを使う
方法がありますが、略
（３）A、B列を結合した文字列をC列に作りそこで関数で重複しないものだけに連番を振る。後はimogasi方式で、別シートなどに抜き出しする。（imogasi方式は、私の過去の回答例に沢山有ります）
「A、B列を結合した文字列をC列に作る」ときに、A列の最高文字数を見繕い、もしそれが１０桁とするなら、
=A1&REPT( " ",10-LEN(A1))&B1
のようにするのがお勧めです。
連番は
A2:A７が
A列　　B列（関数式結果）
aa1
bb2
aa
cc3
bb
dd4
の場合
B2には=IF(COUNTIF($A$2:A2,A2)=1,MAX($B$1:B1)+1,"")
と入れてB7まで式を複写します。
この１，２，３，４を頼りにSheet2の第１，２，３，４行にSheet1のデータを持ってきます。
（４）ピボットテーブルも使えるかも
コード１コード２計数
aax1
bby2
aax3
ccc4
のようなデータに対し
データの個数 / 計数
コード１コード２合計
aax2
aa 合計2
bby1
bb 合計1
ccc1
cc 合計1
総計4
のような表が即座にできます。
ピボットの操作の「レイアウト」の指定のところで
「行」にコード１とコード２をドラッグし、「データ」には「データの個数」をドラッグします。

この回答へのお礼

お礼が遅れてすみませんでした。複雑な条件になると分かりにくいので参考になりました。
　自分でやってみて、検証してみます。有難うございました。

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

No.4 回答者： mike_g 回答日時： 2006/11/24 21:27

[フィルタオプションの設定]の“重複するレコードは無視する”機能を使うのが簡単かと。

１万行だと時間が掛かりそうだけど、その間は珈琲でも飲んでおけば好い。(^_^)

No.3 回答者： maron--5 回答日時： 2006/11/24 21:18

◆メーカが違って同じ車種は無いのではないでしょうか！

◆C列を作業列にして
C2=COUNTIF($B$2:B2,B2)

◆フィルタで、C列の「1」を抽出してください

No.2 回答者： judas_2006 回答日時： 2006/11/24 20:57

すご～く、どんくさい方法ですが、恥を忍んで紹介します。

・A列=メーカー、B列=車種、とします。
・「A列～●列(データが入っている最後の列)」を対象に「データ」「並び替え」にて「優先されるキー」を「列：A・昇順」「列：B・昇順」「ほか・なし」とし、ソートします。
・「●の次の列」の、例えば2行目に「=IF(AND(A2=A1,B2=B1),"*","")」を入力し、全行にコピーします。すると重複している行には"*"が表示されます(重複が始まる最初の行には"*"が表示されません)。
・「●の次の列」で、「コピー」「形式を選択して貼り付け」で「値」をチェックし貼り付けます。これで「=IF(AND(A2=A1,B2=B1),"*","")」は全て"*"かブランクになります。
・「A列～●の次の列」で「データ」「並び替え」にて「優先されるキー」を「列：●の次・降順」とし、ソートします。
・1行目からず～と「●の次の列」に"*"が入った行が続きます。
・"*"が入った行を全て削除します。
・これでA列・B列が重複した行はなくなります。

超どんくさい方法で恐縮ですが、もしお気に召せば、お試し下さい。

No.1 回答者： onntao 回答日時： 2006/11/24 20:41

A列データとB列データを結合した作業列を使って

検索すればよろしいかと
　　　C　　　　　　　　　　　　D
=CONCATENATE(A2,B2)　　　=IF(COUNTIF($C$2:C2,C2)>1,NA(),"")

１万行までコピー