EXCEL中如何用VBA删除多个工作表?
例如：工作簿中有名为tt1、tt2和sht1、 sht2、 sht3、 sht4、 sht5、 sht6、 sht7
...等工作表，要求用宏删除名字以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）。
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
Excelvba删除工作表的代码和实例
第一，按下ALT+F11，打开VBE编辑器。第二，单击菜单：插入——模块，插入一个模块，并复制下面的代码到代码输入区：Sub vba删除工作表()Application.DisplayAlerts = False Dim sht As Object For Each sht In ThisWorkbook.Worksheets If sht.Name > "IT部落窝论坛" Then sht.Delete End If Next ...
EXCEL中如何用VBA删除多个工作表?
打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面。选择如下图所示的下拉菜单，选择“worksheet”。选择如下图所示的下拉菜单，选择对应的触发模式。这里我们选择BeforeDoubleClick，意思就是说：在本工作表鼠标双击（之前），将触发下面的代码程序。（activate意...
vba 批量删除工作簿
1.打开一个隐藏了很多工作表的excel文件。2.执行：文件 - 选项 - 信任中心 - 信任中心设置 - 文档检查器，如下图所示：3.在打开的【文档检查器】窗口中，选取“隐藏工作表”然后点击“检查”按钮。4.在文档检查器里面可以看到excel自动检测到我们当前工作薄一共隐藏了50个excel工作表。检查后点击“...
VBA批量删除excel中的工作表
单击SHEET1，按住SHIFT再单击SHEET15，会将SHEET1到SHEET15全选定，然后右键单击任何一个选中的SHEET，删除
VBA 同时删除多个EXCEL中的第一行
按住CTRL键，点击复选所有的SHEET，选中第一行，删除即可。
在excel中如何使用vba命令实现批量删除指定名称的工作表?
按Alt + F11，双击ThisWorkbook，粘贴下面的代码：Sub ouyangff()On Error Resume Next Application.DisplayAlerts = False For i = 2 To [g65536].End(3).Row a$ = Cells(i, 7)Sheets(a$).Delete Next Application.DisplayAlerts = True End Sub 按Alt + F11，回到你的画面所示的“表”中...
求:用VBA批量删除Excel(多个)文件中的公式,保留数值。
第一步：1、插入一个用户窗体，画一个列表框Ldir，用dir()函数取得所有预处理文档的名称 Dim Mypath As String, Myname As String Mypath = InputBox("输入路径：") '或者画一个文本框名字为Tpath，Mypath = Tpath.text Myname = Dir(Mypath & "*.xls", vbDirectory) '产生目录 Do ...
一个VBA程序怎么处理多个excel 表格
下面代码为打开Excel文件，并提取sheet1中的第一行数据到本表中：Sub main()f = Dir(ThisWorkbook.Path & "\\*.xlsx")'打开制定文件夹中的所有Excel文件 Do While f <> ""Workbooks.Open (ThisWorkbook.Path & "\\" & f)'依次将文件打开 x = Range("A65536").End(3).Row'x为工作表中的...
如何用excel代码批量删除多个excel工作表的vba代码
（1）把这100个excel文档放在同一个文件夹；（2）在其他任何地方新建一个excel，名称任意；（3）在新建的这个excel里添加以下代码（用你的代码改的）；（4）在“宏安全性”设置里勾上“信任对VBA工程对象模型的访问”，然后运行即可 Sub 批量删除vba代码()'On Error Resume Next '这里把它注释是...
excel中用vba快速删除多个工作表内指定的内容
Vba代码，若你的工作表名称没有规律可以就稍微费事点，若是有规律可以用 For each ...in...next..sub Delete_All()with sheets("Sheet1").range("A2:C5").clearContents'编辑你指定的范围，这是清除内容，删除单元格要用Delete end with '把这三行代码复制粘贴，然后修改Sheet名字 end sub ...
