vba - 删除多个工作表的更快方法

Question

我有一个包含多个工作表的工作簿，每次运行特定宏时都会删除其中的大部分。要删除的工作表数量从 1 到 150 不等。

目前，下面的宏部分大约需要 215 秒才能删除 78 个工作表。有没有办法让它更快？类似数量的工作表的运行时间少于 60 秒？

这是代码的相关部分:

For Each WrkSh In MainFile.Worksheets
  If WrkSh.Index > 5 Then
    WrkSh.Delete
  End If
Next WrkSh


MainFile.Sheets("Input").Unprotect
MainFile.Sheets("Buyers").Unprotect
MainFile.Sheets("Template").Visible = True
MainFile.Sheets("Holidays").Visible = True


With MainFile.Sheets("Input")
  .Range("A10:A200").ClearContents
  .Range("E11:N200").Clear
End With

With MainFile.Sheets("Buyers")
  .Range("A10:B40").ClearContents
  .Range("C11:J40").Clear
End With

编辑:我有这个 Application.ScreenUpdating = False在主代码的开头。

Answer 1

您在使用 Application.ScreenUpdating = False ?