电脑太好,代码太差
1万行5s之内肯定没有问题,1s也很正常
把你的问题、表格的格式、数据的位置等写清楚我直接给你写代码,我不太喜欢修改别人的代码。
Sub 删除重复()
Application.ScreenUpdating = False
endrow = Range("A65536").End(xlUp).Row
h = 1
Do While h <= endrow
h = h + 1
For i = endrow To h + 1 Step -1
If Cells(h, 1).Value = Cells(i, 1).Value Then
Rows(i).Delete
endrow = endrow - 1
End If
Next
Loop
Application.ScreenUpdating = True
End Sub
计算行的数量语句不知你用的什么方式
如果用单元格循环就太慢了,直接用END公式取