VBA：快速高效地删除行

我的解决方案需要很长时间才能执行。我有一个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

Sub-kary（）
变光表
将Wb设置为工作簿
Dim liczba，我想
Application.ScreenUpdating=False
设置Wb=Application.ActiveWorkbook
表=Wb.工作表（“raport”）.范围（“A1”）.当前区域
i=8
而单元格（i，1）”
如果单元格（i，11）可以尝试将计算设置为手动并禁用事件

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

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

可以尝试将计算设置为手动并禁用事件

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

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

看一看，看一看。