[已解决]批量删除前l两个以外的所有表

qhllqhll

要求：保留的两个表 是 表一和表二，请不要用固定的工作表名来保留这两个表，能否作到
谢谢

用 sheet1 和sheet2 来表示
也就是保留工作薄的前两个表（表名不固定），其它的表用vba批量删除
谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2013-9-27 09:38

Sub test()
    Application.DisplayAlerts = False
    For I = Sheets.Count To 3 Step -1
        Sheets(I).Delete
    Next
    Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

zjdh

Sub test()
    Application.DisplayAlerts = False
    For I = Sheets.Count To 3 Step -1
        Sheets(I).Delete
    Next
    Application.DisplayAlerts = True
End Sub