修改代码

xing_chen

老师，有簿是删除指定工作表的，写有2个代码。第1个代码[url=]代码[/url]没有达到目的，第2个代码可以但需要1个个点，耗时。敬请老师赐教。谢谢

山菊花

Sub 删除指定表()
    Dim c As Worksheet
    Application.DisplayAlerts = False
    For Each c In Worksheets
        If IsNumeric(c.Name) Then
           c.Delete
        End If
    Next c
    Application.DisplayAlerts = True
End Sub
Sub 删除指定表1()
    Dim c As Worksheet
    Application.DisplayAlerts = False
    For Each c In Worksheets(Array("9", "10", "11"))
        c.Delete
    Next c
    Application.DisplayAlerts = True
End Sub

xing_chen

山菊花 发表于 2023-2-4 16:55
Sub 删除指定表()
    Dim c As Worksheet
    Application.DisplayAlerts = False

谢谢老师！运行如愿。