Excel重复行删除方法:
Sub deleteP()
j = 10000
For hang = 1 To j
If Cells(hang, 1) = "" Then Exit Sub
For i = hang + 1 To j
If Cells(hang, 1).Value = Cells(i, 1).Value Then
Rows(i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next
Next
End Sub