删除EXCEL中相同行的处理

在VBA处理中经常用到删除相同行的处理,我在资料里找到这段代码,感觉做得非常简练.思路就是先查出使用行数,然后从最末行开始操作,如果最末一行的内容在其它使用行中存在相同内容,则删除最末行,循环该操作.

Sub 删除相同行()

Dim r As Integer

Dim i As Integer

With Sheets("SHEET1")

r = .[a65536].End(xlUp).Row

For i = r To 1 Step -1

If WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then

.Rows(i).Delete

End If

Next

End With

End Sub

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24345566/viewspace-1049977/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24345566/viewspace-1049977/