添加和删除工作表

'添加工作表

Sub Addsh_2()

    Dim i As Integer

    Dim sh As Worksheet

    For i = 1 To 10

        Set sh = Sheets.Add(after:=Sheets(Sheets.Count))

        sh.Name = i

    Next

End Sub

'删除工作表

Sub Delsh()

    For Each sh In ThisWorkbook.Sheets

        If sh.Name <> "工作表的添加與删除" Then

            Application.DisplayAlerts = False

            sh.Delete

            Application.DisplayAlerts = True

        End If

End Su