紧急求助各位大神！

木头人的幸福

本人想实现：在表格中当A列序号大于B列序号时，自动删除该行数据，小于等于时保留该行数据，本人写了如下代码：
Sub 删除()
Dim i As Integer
i = 2
For i = 2 To 13000
If Range("A" & i) > Range("B" & i) Then
Rows(i).Delete
End If

Next i

End Sub




但是每次执行职能删除一行，不能批量删除。因为数据量有几十万条，所以手工很难处理，特求助各位大神！还请不吝赐教，感谢！！数据详细见附件