求助：如何批量删除不同Excel中特定名称的Sheet,在线等。

Question

如题所述

Answer 1

打开单个表，运行宏，很快就删除指定表名。
但是，还没有达到你的批量要求。
暂且用吧。快一点点了。
Sub 清除指定表()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sht As Worksheet
Dim th As Workbook
Set th = ThisWorkbook
For Each sht In th.Sheets
If sht.Name = "表名" Then
sht.Delete
End If
Next
End Sub追问

可以帮忙写一个批量处理的公式吗？excel太多了。

追答

百度搜索吧，我也仅仅是半个老手。

这里有个文章：http://blog.sina.com.cn/s/blog_545953a501012gx1.html
试试