A列とB列を比較して同じﾃﾞｰﾀがあれば｢1回だけ｣B列の該当ﾃﾞｰﾀに色を付けるようなﾏｸﾛや関数をお教えいただきたいです｡図のように､一致するﾃﾞｰﾀに色を付けたい…

A列とB列を比較して同じﾃﾞｰﾀがあれば｢1回だけ｣B列の該当ﾃﾞｰﾀに色を付けるようなﾏｸﾛや関数をお教えいただきたいです｡
図のように､一致するﾃﾞｰﾀに色を付けたいのですが､それを1回限りにして､B列に余計なﾃﾞｰﾀがないかどうか調べたいのです｡
類似の方法でも構いません｡(A列とB列を比較し､一致するﾃﾞｰﾀがあればC列に､B列の該当ｾﾙの個数を出す等)
実際のﾃﾞｰﾀはA列､B列共に､1500行ぐらいまで入っております｡
お力添えいただければ幸いです｡
よろしくお願いします｡

Sub main()

Dim a As Long
Dim b As Long


For a = 1 To Rows.Count
 If Cells(a, "A") = "" Then Exit For
 For b = 1 To Rows.Count
 If Cells(b, "B") = "" Then Exit For
 If Cells(a, "A") = Cells(b, "B") Then
 Cells(b, "B").Interior.ColorIndex = 6
 Exit For
 End If
 Next b
Next a

End Sub