Excel反复行删除

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

1楼mjhwy昨天 16:23

http://jingyan.baidu.com/article/8065f87fc6fc16233124982e.html