求一键删除“特定表到特定表”之外其余表格的代码

7547854

就是保留表格1到表格5，其余表格删除

shiruiqiang

7547854

shiruiqiang 发表于 2023-3-8 11:24

你好，能发代码吗

tanglf188

    Application.DisplayAlerts = False
    c = Worksheets.Count
    For i = 1 To c - 5
        Sheets(6).Delete
    Next
    Application.DisplayAlerts = True

shiruiqiang

7547854 发表于 2023-3-8 11:28
你好，能发代码吗

Sub test()
Application.DisplayAlerts = False

Dim x
For x = Sheets.Count To 6 Step -1
Sheets(x).Delete
Next


Application.DisplayAlerts = True

End Sub

杨建营

Sub test()
Dim i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = Sheets.Count To 6 Step -1
Sheets(i).Delete
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

7547854

杨建营 发表于 2023-3-8 11:36
Sub test()
Dim i&
Application.ScreenUpdating = False

ykcbf1100

这样更准确吧。

ykcbf1100

代码如下：

1. Sub ykcbf()
   
2.     Application.DisplayAlerts = False
   
3.     For Each sht In Sheets
   
4.         If InStr(sht.Name, "表格") = 0 Then sht.Delete
   
5.     Next
   
6.     Application.DisplayAlerts = True
   
7. End Sub

复制代码