vba 选择/删除除第一个以外的所有工作表

Question

我在移除不必要的床单时遇到了问题。我查看了不同的论坛并将不同的解决方案混合在一起。
此宏删除工作表(第一张工作表除外)。

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

这个解决方案可以还是可以改进？我还尝试直接对对象(工作簿、工作表)执行操作，但每次都失败了

Answer 1

你的代码可以工作(但你可以自己发现!)

你可以避免 If-Then-End如果通过直接从最后一张到第二张的表格索引循环，如下

Option Explicit

Sub wrong()
    Dim i As Long

    Application.DisplayAlerts = False
    With Sheets '<--| reference active workbook 'Sheets' collection
        For i = .Count To 2 Step -1 '<--| loop through referenced sheets index from last to the 2nd
            .Item(i).Delete '<--| delete current index sheet
        Next
    End With
    Application.DisplayAlerts = True
End Sub