excel - 删除工作表

Question

我正在尝试运行删除所有工作表(第三个)的代码。

下面的代码会导致语法错误:

Sub Delete_Sheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Sheet1", "LBO", "Factset codes" Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub

Answer 1

您不能像这样将所有“要检查的名称”放在一行中。试试这个(替换你的 If block ):

Select Case ws.Name 
    Case "Sheet1", "LBO", "Factset codes"' Do Nothing here
    Case Else: ws.Delete
End Select

编辑(添加代码以使其静默删除):

Application.DisplayAlerts = False
Select Case ws.Name
    Case "Sheet1", "LBO", "Factset codes" ' Do Nothing here
    Case Else
        If Worksheets.Count > 1 Then ws.Delete
End Select
Application.DisplayAlerts = True