EXCEL中如何用VBA删除多个工作表?
...等工作表，要求用宏删除名字以sht开头的所有工作表
答案都很好，但还差一点，要全自动删除，无须手动确定
以下是最佳答案
'删除名字前三个字符为“sht”的所有工作表
Public Sub delectsh()
Dim c As Worksheet
For Each c In Worksheets
If Left(c.Name, 3) = "sht" Then'这里的“sht”区分大小写
Application.DisplayAlerts = False'删除时不用确认
c.Delete
End If
Next c
End Sub
只能选最接近的了 展开
sub ds()
for i = worksheets.count to 1 step -1
if worksheets(i).name like "sh*" then '( 这里的sh区分大小写)
worksheets(i).delete
end if
next
end sub
如何使用Excel VBA
打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面。
选择如下图所示的下拉菜单，选择“worksheet”。
选择如下图所示的下拉菜单，选择对应的触发模式。这里我们选择BeforeDoubleClick，意思就是说：在本工作表鼠标双击（之前），将触发下面的代码程序。（activate意思是说：在sheet表被选取的时候，就触发；Change意思是说：在这个模式下，只要sheet（工作表）发生变化，就将触发；Before Right Click是指在鼠标右击之前触发；SelectionChange是指在鼠标焦点发生变化时，触发。）
选择完成后，我们会看到下面出现了两条代码；这俩条代码其实是在声明一个函数。
将鼠标放置在这两行代码之间，我们写上执行语句：
Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)
其中：sheet1.cells（1,3）就是指第一行第三列的这个单元格；Sheet1.Cells(1, 1)就是指第一行第一列的这个单元格；Sheet1.Cells(1, 2)就是指第一行第二列的单元格。执行语句的意思是：将cells（1,1）和cells（1,2）的值相加，并赋值给cells（1,3）
注意的是：写语句的时候，输入法一定要是输入字母的模式。要不然你的语句会报错。
然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值。
注意看：现在的cells（1,3）数值是空的。
在sheet1的工作表中，双击你的鼠标。你会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。（204849=125895+78954）。
'删除名字前三个字符为“sht”的所有工作表
Public Sub delectsh()
Dim c As Worksheet
For Each c In Worksheets
If c.Name like "sht*" Then'这里的“sht”区分大小写
Application.DisplayAlerts = False'删除时不用确认
c.Delete
End If
Next c
End Sub
也不知道这货脑子里哪根筋搭错了。
for i = worksheets.count to 1 step -1
if worksheets(i).name like "sh*" then '( 这里的sh区分大小写)
worksheets(i).delete
end if
next
end sub
你可以用另外一种变通的办法，把tt1、tt2复制到一个新的工作薄上，然后关闭原来的工作薄，删除之，然后把刚才工作薄重命名为你要的，目前我只能找到这个办法。
For Each sh In Sheets
If InStr(sh.Name, "sht") <> 0 Then
Application.DisplayAlerts = False
sh.Delete
End If
Next
End Sub
