Excelで重複チェックの方法

質問

重複データのチェックについて教えてください。
シート１にＡ支店の顧客データ、シート２にＢ支店の顧客データがあります。シートの構成は、Ａ列に名前、Ｂ列に電話番号があります。
これで、Ａ支店に顧客登録されていて、同じくＢ支店にも登録されている人を選び出し、支店間で同一人物を登録しないようにしたいのですが、どのようにしたら良いでしょうか。
私が考えるにはＡ列の名前でVLOOKUPを使えばいいと思うのですが、これだと同姓同名のダブりチェックが出来ないですね。名前が同じなら電話番号で比較しようと思うのですが、良く分かりません。
シート１のＡ支店を基準にしてシート２のＢ支店と比較し、重複していれば仮にＣ列に「重複」と表示させる。
・・・としたいのですが、どなたか教えてください。

回答No.5

imogasi · ベストアンサー

（テストデータ）Sheet1のA1:B7
a 2
b 3
c 2
d 2
e 2
f 2
a 2
Sheet2のA1:B8
w 1
e 2
r 1
t 3
b 3
y 5
u 2
a 2
（コード）標準モジュールに貼りつけ実行する。
Sub test01()
Dim c As Range
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Set sheet1 = Worksheets("sheet1")
Set sheet2 = Worksheets("sheet2")
d = Worksheets("sheet2").Cells(1, "A"). _
CurrentRegion.Rows.Count
Worksheets("sheet2").Activate
For i = 1 To d
y = Worksheets("sheet2").Cells(i, "A")
For Each c In sheet1.Range("a1:a7")
If c = sheet2.Cells(i, "A") And c.Offset(0, 1) = _
sheet2.Cells(i, "B") Then
sheet2.Cells(i, "c") = "重複"
Else
End If
Next
Next i
End Sub
（結果）Sheet2のC列のC2,C5,C8に重複と出ます。
（注意）貴殿の表で実行する場合は
（A)表が大きくなった時どこを変えるべきか判りますね
sheet1.Range("a1:a7")のところを変えること。
（B)Sheet2の表の開始行が第１行でないとき
d = Worksheets("sheet2").Cells(1, "A").
の1を変えること。

お礼

詳しく教えていただいてありがとうございます。
NO.3の方法と供に試してみようと思います。

回答No.4

noname#4136

初めまして。
まずシート１と２のＣ列に
=a1&b1
という感じで名前と電話番号を結合させた列を作ります。
この列は重複チェック用のキーワードになります。
普段は必要ないと思いますので、完成したら非表示にすればいいです。
次にＤ列に重複していた場合の”重複”の文字を出すようにします。
このためにはIF関数とCOUNTIF関数を組み合わせると良いでしょう。
具体的には
=IF(COUNTIF(範囲,検索条件>=1,"重複","")
=IF(COUNTIF(Sheet2!C1:C3,Sheet1!C1:C3)>=1,"重複","")
となります。範囲は仮にC1:C3としています。
COUNTIF関数で同じ物が１以上あれば、重複です。
おわかりになったでしょうか。

お礼

とても詳しい説明ありがとうございます。
名前と電話番号を結合するのですね。
これだと、１列増えることになり、ファイルのサイズが大きくなってしまうと思い、できれば避けたいと思っていました。他の方が言われているVBAと一緒に試してみます。

回答No.3

AQUALINE

VBAでも簡単に検索可能です。
以下をコピーして標準モジュールに張付け、実行してみてください。
なお、データは途中に空白行がないものとします。

Sub CHECKTEST()

Dim 最終行1, 最終行2 As Integer
Dim 行1, 行2 As Integer
最終行1 = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
最終行2 = Worksheets("Sheet2").Range("A1").CurrentRegion.Rows.Count

For 行2 = 2 To 最終行2
For 行1 = 2 To 最終行1

If Application.WorksheetFunction. _
Trim(Worksheets("Sheet2").Range("A" & 行2)) = _
Application.WorksheetFunction. _
Trim(Worksheets("Sheet1").Range("A" & 行1)) Then
Worksheets("Sheet1").Range("C" & 行1) = "名前が一致"
Worksheets("Sheet2").Range("C" & 行2) = "名前が一致"
If Application.WorksheetFunction. _
Trim(Worksheets("Sheet2").Range("B" & 行2)) = _
Application.WorksheetFunction. _
Trim(Worksheets("Sheet1").Range("B" & 行1)) Then
Worksheets("Sheet1").Range("D" & 行1) = "電話番号も一致"
Worksheets("Sheet2").Range("D" & 行2) = "電話番号も一致"
End If
End If

Next 行1
Next 行2

End Sub

お礼

ありがとうございます。
No..5の方法と両方試してみようと思います。
勉強になりました。

回答No.2

vantage

思いついただけなので、もっときちんとした方法は他にあるのでしょうが・・・

とりあえず Ｃ列に[名前]&[電話番号]のデータを作って比較してみればいかがでしょう？

お礼

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

回答No.1

water_lily

シート３にA支店のデータとB支店のデータを同じ列にコピーして、並べ替えすれば、重複のは2回出てきます。それをピックアップすればいいではないでしょうか？
ちなみにデータのほうに名前、電話番号以外に支店の列を設けると、もっと分かりやすいはないでしょうか？

お礼

ありがとうございます。