エクセルの重複データ抽出、削除についての質問です。

質問

会社で事務をしている者です。２つの顧客リストから重複データを抽出し、それから重複データを削除しなくてはならなくなりました。具体的には以下の順序で行いたいのですが、素人なので方法がわかりません。皆様のお知恵をいただきたいとおもいます。よろしくお願いします。

顧客リストＡ
顧客番号 氏名 住所 金額Ａ
1 聖徳太子 奈良県奈良市 480
2 坂本竜馬 高知県高知市 150
3 織田信長 岐阜県岐阜市 300
4 徳川家康 愛知県名古屋市 320
5 豊臣秀吉 愛知県名古屋市 180
6 紫式部 京都府京都市 230
7 真田幸村 長野県上田市 140
8 土方歳三 東京都日野市 200
9 宮本武蔵 熊本県熊本市 350
10 福沢諭吉 大阪府大阪市 130
11 上杉謙信 新潟県上越市 540

2、顧客リストＢ
氏名 住所 金額Ｂ
土方歳三 東京都日野市 250
千利休 大阪府堺市 280
織田信長 岐阜県岐阜市 300
武田信玄 山梨県甲府市 220
伊達政宗 宮城県仙台市 140
坂本竜馬 高知県高知市 200
聖徳太子 奈良県明日香村 380
福沢諭吉 大阪府大阪市 130
上杉謙信 新潟県上越市 500
西郷隆盛 鹿児島県鹿児島市 660

３、顧客リストＡ・Ｂより氏名、住所の一致した先を検索し、金額ＡおよびＢとともに別シートに抽出。
顧客番号 氏名 住所 金額Ａ 金額Ｂ
2 坂本竜馬 高知県高知市 150 200
3 織田信長 岐阜県岐阜市 300 300
8 土方歳三 東京都日野市 200 250
10 福沢諭吉 大阪府大阪市 130 130
11 上杉謙信 新潟県上越市 540 500

４、抽出した顧客リストのうち金額Ａ・Ｂが同額である先を削除。
顧客番号 氏名 住所 金額Ａ 金額Ｂ
2 坂本竜馬 高知県高知市 150 200
8 土方歳三 東京都日野市 200 250
11 上杉謙信 新潟県上越市 540 500

以上です。使用ソフトはエクセル2003です。
多少手間はかかってもわかりやすい方法でお願いします。

回答No.3

noname#192382

回答のなかまにいれてください。シート1としーと2にデータを入れて次のマクロを実行すればシート3とシート4 に望みどおりの表がつくられました。
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2011/10/29 ユーザー名 :
'
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim c1 As Range
Dim c2 As Range
Dim c3 As Range
Dim mygyo As Integer

With Sheets("Sheet1")
Set rng1 = .Range("B1", .Range("B" & Rows.Count).End(xlUp))
End With

For Each c1 In rng1
c1.Offset(, 3).Value = c1.Value & c1.Offset(, 1).Value
c1.Offset(, 4).Value = c1.Offset(, 2).Value
Next

With Sheets("Sheet2")
Set rng2 = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
End With

For Each c2 In rng2
c2.Offset(, 3).Value = c2.Value & c2.Offset(, 1).Value
c2.Offset(, 4).Value = c2.Offset(, 2).Value
Next

With Sheets("Sheet1")
Set rng1 = .Range("E1", .Range("E" & Rows.Count).End(xlUp))
End With
With Sheets("Sheet2")
Set rng2 = .Range("D1", .Range("D" & Rows.Count).End(xlUp))
End With

rng1.Offset(, 2).ClearContents
rng1.Offset(, 2).ClearFormats

For Each c1 In rng1
For Each c2 In rng2

If c1.Value = c2.Value Then
With c1.Offset(, 2)
.Value = c2.Offset(, 1).Value
End With
Exit For
End If

Next
Next

With Sheets("Sheet1")
Set rng1 = .Range("G1", .Range("G" & Rows.Count).End(xlUp))
End With
mygyo = 1
For Each c1 In rng1

If c1.Value <> "" Then

Sheets("Sheet3").Cells(mygyo, 1) = c1.Offset(, -6).Value

Sheets("Sheet3").Cells(mygyo, 2) = c1.Offset(, -5).Value
Sheets("Sheet3").Cells(mygyo, 3) = c1.Offset(, -4).Value

Sheets("Sheet3").Cells(mygyo, 4) = c1.Offset(, -1).Value
Sheets("Sheet3").Cells(mygyo, 5) = c1.Value
mygyo = mygyo + 1

End If

Next

With Sheets("Sheet3")
Set rng3 = .Range("D1", .Range("D" & Rows.Count).End(xlUp))
End With
mygyo = 1
For Each c3 In rng3

If c3.Value <> c3.Offset(, 1).Value Then

Sheets("Sheet4").Cells(mygyo, 1) = c3.Offset(, -3).Value

Sheets("Sheet4").Cells(mygyo, 2) = c3.Offset(, -2).Value
Sheets("Sheet4").Cells(mygyo, 3) = c3.Offset(, -1).Value

Sheets("Sheet4").Cells(mygyo, 4) = c3.Value
Sheets("Sheet4").Cells(mygyo, 5) = c3.Offset(, 1).Value
mygyo = mygyo + 1

End If

Next

End Sub
'