这个用2嵌套的循环来实现比对就可以了,A列第一个数据和B列第一个数据比对,
如果不重复就转到B列第二个,如果重复了就转到A列第二个,依次比对。大概十几句代码吧,添加一个按钮: (假定数据从第二行开始)
Private Sub CommandButton1_Click()
ROW_A = 2: ROW_B = 2
ENDROW_B = [A65536].End(xlUp).Row
Do While Cells(ROW_A, 1) <> ""
Do While Cells(ROW_B, 2) <> ""
If Cells(ROW_A, 1) = Cells(ROW_B, 2) Then
Cells(ROW_B, 2).Interior.ColorIndex = 6
MsgBox ("B" & ROW_B & "行出现重复")
Exit Do
Else: If ROW_B = ENDROW_B Then
Exit Do
Else: ROW_B = ROW_B + 1
End If :End If
Loop
ROW_A = ROW_A + 1
ROW_B = 2
Loop
End Sub
温馨提示:内容为网友见解,仅供参考