這個用2巢狀的迴圈來實現比對就可以了,A列第一個資料和B列第一個資料比對,

PrivateSubCommandButton1_Click()

ROW_A=2:ROW_B=2

ENDROW_B=[A65536].End(xlUp).Row

DoWhileCells(ROW_A,1)""

DoWhileCells(ROW_B,2)""

IfCells(ROW_A,1)=Cells(ROW_B,2)Then

Cells(ROW_B,2).Interior.ColorIndex=6

MsgBox("B"&ROW_B&"行出現重複")

ExitDo

Else:IfROW_B=ENDROW_BThen

ExitDo

Else:ROW_B=ROW_B+1

EndIf:EndIf

Loop

ROW_A=ROW_A+1

ROW_B=2

Loop

EndSub