excel VBA在工作表中查找重复条目

My code :

我的代码:

For i = 1 To iRowNumber
 If Cells(i, x).Value > 1 Then

     Cells(i, 2).Copy
     Sheets(1).Select
     Cells(1, 1).Value = Now
     Cells(1, 2).Value = "Duplicate"
     Cells(1, 4).Select
     ActiveSheet.Paste
     Cells(1, 3).Value = Mid(Cells(1, 4), 5, 4)

 End If
Next i
x=x+1
For i = 1 To iRowNumber
 If