保留工作薄中不想删除的工作表,其他全部删除
Sub test()
'删除其他表,保留 绝不能删除 表
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In Sheets
'如果工作表名不等于“决不能删除”
If sht.Name <> "绝不能删除" Then
'将工作表删除
sht.Delete
End If
Next
Application.DisplayAlerts = False
End Sub
页:
[1]