vba 怎样删除某个sheet之后的sheet

Question

如题所述

Answer 1

Sub ShanChu()
'删除 “删除之后” 工作表之后的工作表
Application.DisplayAlerts = False '关闭提示框
For Each sht In Worksheets '循环工作表
    If sht.Name = "删除之后" Then '找到设定的工作表后作标记
        k = 1
        GoTo a
    End If
    If k = 1 Then '标记之后的工作表都删除
        sht.Delete
    End If
a:
Next
Application.DisplayAlerts = True '打开提示框
End Sub

以上。