excel - 删除工作表错误

Question

我正在尝试删除除工作表 1 之外的所有工作表。除了工作表 1，我不知道工作表的名称。因此，我使用了 for 循环，但它总是在 工作表行上给出超出范围下标的错误(s).Delete 提前感谢您的帮助。

Sub clear()
Dim z, y As Integer
Dim s As String
Dim sheet As Worksheet
z = ActiveWorkbook.Sheets.Count
For y = 2 To z Step 1
s = ActiveWorkbook.Sheets(y).Name
Worksheets(s).Delete
Next y
Sheet1.Cells.clear
End Sub

Answer 1

有点不清楚您真正想要保留哪张纸，但这是怎么回事？我假设你想保留，然后清除，Sheets("Sheet1") .如果没有，只需将其编辑到您想要保留/清除的工作表。

Sub clear()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Sheets
    If sheet.Name <> "Sheet1" Then sheet.Delete
Next sheet
Sheets("Sheet1").Cells.clear
End Sub

如果你想保留 Sheet(1)那么你会这样做:

Sub clear()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Sheets
    If sheet.Index <> 1 Then sheet.Delete
Next sheet
Sheets(1).Cells.clear
End Sub