Excel重复行删除

 

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