複数セルの値が重複しているかどうかを調べたい

質問

A列に会社コード
B列に商品コード
が入っているExcelがあります。

会社コードと商品コードをあわせて複合キーとして
重複しているデータを抽出したいのですが
やり方がわかりません。

たとえば、
会社コード　商品コード
01　　　　　　001
02　　　　　　001
01　　　　　　002
01　　　　　　001
0　　　　　 　1001
01　　　　　　001
という値が入っているときに、
1行目と重複している行として4行目と6行目を検索したいのです。

Ａ列とＢ列の文字列を結合させてFindを使用しようと思ったのですが
そうすると、5行目も検索対象としてヒットしてしまいます。
（5行目は重複してるとはいいませんよね・・・）

VBAでの実現を考えています（初級者です）。

どなたか教えてください。
よろしくお願いします。

回答No.2

zap35

＃０１です。
例えばこんなマクロでしょうか。Findメソッドも理解されていらっしゃるようですので、読めば分かると思います。

Sub Macro6()
Const col As String = "A"
Dim res
Dim act As Worksheet
Dim idx, lastR As Long
Dim fAdr As String
　　Application.ScreenUpdating = False
　　Set act = ActiveSheet
　　lastR = act.Cells(65536, col).End(xlUp).Row
　　For idx = 2 To lastR - 1
　　　　With act.Range(Cells(idx + 1, col), Cells(lastR, col))
　　　　　　Set res = .Find(What:=act.Cells(idx, col).Value, LookAt:=xlWhole)
　　　　　　If Not res Is Nothing Then
　　　　　　　　fAdr = res.Address
　　　　　　　　Do
　　　　　　　　　　If res.Offset(0, 1).Value = act.Cells(idx, col).Offset(0, 1) Then
　　　　　　　　　　　　res.Resize(1, 2).Font.ColorIndex = 3
　　　　　　　　　　End If
　　　　　　　　　　Set res = .FindNext(res)
　　　　　　　　Loop Until res.Address = fAdr
　　　　　　End If
　　　　End With
　　Next idx
　　Application.ScreenUpdating = True
End Sub