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