小编Seb*_*Ong的帖子

具体来说，我想删除除工作表的代号Sheet6以外的所有工作表，但是我似乎无法使我的代码正常工作。

  Dim ws As Worksheet

  For Each ws In ThisWorkbook.Worksheets
  If ws <> ThisWorkbook.Sheet6 Then

      Application.DisplayAlerts = False
      ws.Delete
      Application.DisplayAlerts = True

  End If

  Next ws