4.删除除指定表外的其他sheet表

年景@

已于 2024-05-13 11:43:59 修改

阅读量119

点赞数 3

分类专栏： VBA 文章标签：汇编

于 2024-05-13 11:43:34 首次发布

本文链接：https://blog.csdn.net/weixin_73737526/article/details/138795737

版权

VBA 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

Sub 留右删除() '保留最右侧表格
    Dim r As Integer
    Application.DisplayAlerts = False
    If Sheets.Count > "2" Then
        For r = (Sheets.Count - 1) To 1 Step -1
            Sheets(r).Delete
        Next
    End If
    Application.DisplayAlerts = True
End Sub

Sub 留左删除() '保留最左侧表格
    Dim l As Integer
    Application.DisplayAlerts = False
    For l = Sheets.Count To 2 Step -1
        Sheets(l).Delete
    Next
    Application.DisplayAlerts = True
End Sub

Sub 留指定删除() '留指定表，删除其余工作表
Application.DisplayAlerts = False
    Dim sht As Worksheet
    Dim zd As String
    zd = InputBox("请输入需保留工作表的标签名，仅限一个：")
        For Each sht In Sheets
            If sht.Name <> zd Then
            sht.Delete
            End If
        Next
Application.DisplayAlerts = True
End Sub