在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博客 ” ，链接：https://blog.itpub.net/24345566/viewspace-1049977/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
