VBA：高效的删除行速度

我的解决scheme需要很长时间才能执行。 我有60k行的文件，它可以更大。 你能帮我把这个过程加快吗？

Sub kary() Dim table As Variant Dim Wb As Workbook Dim liczba, i As Long Application.ScreenUpdating = False Set Wb = Application.ActiveWorkbook table = Wb.Worksheets("raport").Range("A1").CurrentRegion i = 8 While Cells(i, 1) <> "" If Cells(i, 11) <= 0 Or Cells(i, 5) = "FV_K" Or Cells(i, 5) = "KFD" Or Cells(i, 5) = "KR" Then Rows(i).Delete Shift:=xlUp Else i = i + 1 End If Wend Application.ScreenUpdating = True End Sub 

Answer 1

可以尝试设置计算手动和禁用事件

 'Optimise code performance Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False . . . Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True