这个用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).Int... |