[VBA]删除多余工作表

sub 删除多余工作表()

Dim i As Integer

Application.DisplayAlerts = False

For i = Worksheets.Count To 1 step -1

    If i >7 Then

    ThisWorkbook.Worksheets(i).Delete

    End If

    Next

Application.DisplayAlerts = True

End Sub