如何批量删除含有指定字符串的工作表

drinker007 · 发表于 2024-3-12 12:29

一个工作簿有200个工作表，我想删除名称包含"560238"的所有工作表，怎么写代码能实现？

3190496160 · 发表于 2024-3-12 12:40

Sub 删除工作表()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Sheets
If InStr(sh.Name, "560238") > 0 Then
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-3-12 12:40

shiruiqiang · 发表于 2024-3-12 12:41

for each sht in sheets
if instr(sht，“560238”) then
sht.delete

gwjkkkkk · 发表于 2024-3-12 19:57

For Each sht In Sheets
If sht.Name Like "*" & "560238" & "*" Then sht.Delete
End Sub

drinker007 · 发表于 2024-3-13 14:41

3190496160 发表于 2024-3-12 12:40
Sub 删除工作表()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

如果既定字符串有好几个怎么写代码呢？比如包含“560238”，或者“112203”，或者“112204”等等
包含这些字符串的工作表均删除

drinker007 · 发表于 2024-3-13 14:41

3190496160 发表于 2024-3-12 12:40

如果既定字符串有好几个怎么写代码呢？比如包含“560238”，或者“112203”，或者“112204”等等
包含这些字符串的工作表均删除

3190496160 · 发表于 2024-3-13 15:22

		自动登录	找回密码
密码			免费注册

[求助] 如何批量删除含有指定字符串的工作表