Dim dr As Range
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
Sheets("工作表1").Select
Range("A2").Select
Set dic = CreateObject("scripting.dictionary")
For i = Range("A2000").End(3).Row To 1 Step -1
If dic.exists(Cells(i, "A").Value) Then
If dr Is Nothing Then
Set dr = Rows(i)
Else
Set dr = Union(dr, Rows(i))
End If
Else
dic(Cells(i, "A").Value) = ""
End If
Next i
dr.EntireRow.Delete
Set dr = Nothing
Set dic = Nothing
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
發表於 2020-12-10 09:52
| 
