如何用VBA代码自动删除某两列数值值相同的行？

约定的童话

Sub 删除AB列重复值所在行() '纯循环--3.199秒
Application.ScreenUpdating = False
StartTime = Timer
Dim i
For i = [a65536].End(xlUp).Row To 1 Step -1
If Cells(i, "a") = Cells(i, "b") Then
Rows(i).Delete
End If
Next
MsgBox Timer - StartTime
Application.ScreenUpdating = True
End Sub
Sub 删除AB列重复值所在行2() '循环+数组--3.179秒
Application.ScreenUpdating = False
StartTime = Timer
Dim i, arr
arr = [A1].CurrentRegion
For i = [a65536].End(xlUp).Row To 1 Step -1
If arr(i, 1) = arr(i, 2) Then
Rows(i).Delete
End If
Next
MsgBox Timer - StartTime
Application.ScreenUpdating = True
End Sub