エクセル 重複行色付（VBA）について質問です。

Excelで、2ヶ所の場所を重複しているのかどうかチェックし、重複でしたらその行ごと色を付けたいと思っております。


|　　　　A　　　　|　　　　B　　　|　　　C　　　|　　　D　　　|　　　E　　　|
　　　田中　　　　1046587920　　　8/2　　　　　8/6　　　　100364987
　　　鈴木　　　　1098463612　　　8/3　　　　　8/5　　　　125698001
　　　森川　　　　1548758743　　　8/20　　　　8/23　　　　103587410
　　　川島　　　　1046587920　　　8/22　　　　8/23　　　　100365871
　　　森本　　　　1046587920　　　8/25　　　　8/26　　　　100364987

例えば、上記の様な一覧があり　「B列」　と　「E列」　とで重複を確かめて、同じであれば色が付く様にVBAを組みたいのですが、現在調べて　「B列」　のみの重複に色付けは出来るようになったのですが、2ヶ所重複に色をつけることで困っております。

上の例で行きますと、田中さんと森本さんの行に色が付く形が理想でして、川島さんの、「B列」は該当しておりますが、「E」列が異なるため、色は付きません。

行数は。2万行前後になるのですが、関数を当てると処理が非常に重くなるため、VBAを試みております。

お知恵をお貸し頂けましたら幸いです。

No.2 ベストアンサー 回答者： mu2011 回答日時： 2011/10/05 17:23

NO1です。

>B1の数値とE1の数値を確かめる式だと思うのですが、B列全ての数値と重複が無いのか確かめたいのです。B2　B3　B4　B5　と　E2　E3　E4　E5　・・・・

　⇒条件付き書式は余りご理解されていないみたいですね。
　　条件付き範囲を選択すれば、この数式が全てのセルに反映されますので一度、A:E列を選択して条件付き書式を設定してみて下さい。

この回答へのお礼

COUNTIFを調べて使い方を理解致しました。

ご回答誠にありがとうございました。

お礼日時：2011/10/06 19:02

No.1 回答者： mu2011 回答日時： 2011/10/05 11:10

>2万行前後になるのですが、関数を当てると処理が非常に重くなるため、VBAを試みております

　⇒２万行ともなれば関数でもＶＢＡでも余り差はないと思いますので、一度、条件付き書式設定でお試しください。
　　条件関数例です。
　　=AND(COUNTIF($B:$B,$B1)>1,COUNTIF($E:$E,$E1)>1)

この回答への補足

補足になるかは分かりませんが、約2万行の中にどの位重複のデータが入っているか分からず、どこに重複データが入っているか分からない場合で、「B列」と「E列」がお互いに同じ数値なら色付けということなのです。


教えて頂きました条件関数では、
=AND(COUNTIF($B:$B,$B1)>1,COUNTIF($E:$E,$E1)>1)では、
B1の数値とE1の数値を確かめる式だと思うのですが、B列全ての数値と重複が無いのか確かめたいのです。B2　B3　B4　B5　と　E2　E3　E4　E5　・・・・

ステップとしては、
B2の数値がB列の2万行の中にあるのかチェックして、あれば次にE列の2万行をチェックしてあれば重複処理

次にB3の数値をB列の2万行の中からチェックし、あれば次にE列でのチェックと2万行続く作業になるのですけど。

一度条件書式で試みたことがあるのですが、凄く重たかった印象があったのす。

補足日時：2011/10/05 11:43