Sub MyDeleteRow()
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
VBA单元格去重复(单列)
最新推荐文章于 2024-07-03 11:22:14 发布