小编fin*_*dow的帖子

我有大约8000多行.使用自动过滤器删除行需要几分钟.我认为autofilter是事实上快速删除的方式(而不是逐行循环).我怎样才能加快速度？有更快的方法吗？公平地说,一半的行被删除XD

With ThisWorkbook.Worksheets("Upload")
    lastRow = .Cells(.Rows.Count, "S").End(xlUp).Row
    Set dataRng = .Range(.Cells(4, 1), .Cells(lastRow, 19))
    dataRng.AutoFilter field:=19, Criteria1:="=0"
    Application.DisplayAlerts = False
    dataRng.Offset(1, 0).Resize(dataRng.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Rows.Delete
    Application.DisplayAlerts = True
    .ShowAllData
End With