小编Fat*_*man的帖子

我在删除不必要的纸张时遇到了问题。我查看了不同的论坛并将不同的解决方案混合在一起。
该宏删除工作表（第一张工作表除外）。

Sub wrong()

Dim sht As Object
Application.DisplayAlerts = False
    For Each sht In ActiveWorkbook.Sheets
        If sht.Index <> 1 Then
            sht.Delete
        End If
    Next

End Sub

这个解决方案可以吗？或者可以改进吗？我还尝试直接对对象（工作簿、工作表）执行操作，但每次都失败