[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

posted @ 2017-07-14 11:17  苏苏叶  阅读(1280)  评论(0)  编辑  收藏  举报