判断excell表里数据重复的有关问题

求助：判断excell表里数据重复的问题
B列和H列的数据组合，要求不能重复。如果重复了，就提示哪一行重复了。


我用了最死的办法：
rc = Workbooks(xxx).Sheets("Sheet1").UsedRange.Rows.Count

For i = 3 To rc
tx = Cells(i, 2) & "," & Cells(i, 8)
For j = 3 To rc
If Cells(j, 2) & "," & .Cells(j, 8) = tx And j <> i Then
MsgBox (Cells(j, 2) & "and" & Cells(j, 8) & "is repeated")
End If
Next j
Next i


功能是OK。但是因为表格太庞大，有超过一千行。运行起来很慢。
有没有比较快速的办法？
------解决方案--------------------------------------------------------
上边打错了
进行同一列比较
比较A列
http://img.my.csdn.net/uploads/201301/12/1357981982_6292.png