作者：乔山办公网日期：
返回目录：excel表格制作
按百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，回到你的问画面所示的“答表”中！
按Alt + F8，确内定！
去试一试容吧！！！
删除EXCEL工作表中定义的名称可以通过名称管理器进行：
按CTRL+F3，调出“名称管理器”，选择要删除的名称，点击“删除”。
快就只有写zd程序，但是没有基础的人写程序的时间不敢估计，就是拿到别人的程序粘贴到自己的电脑版上运行成功可能都太艰难，但是你这个需求真的不好找更快的办法了，我给一个代码，祝你好运：
sub 宏1()
dim wb as workbook, st as worksheet, p$, f$
p="d:\报告\" '需要权处理的文件夹，必须以\结尾，你可能需要修改
f=dir(p & "*.xls*")
while f<>""
set wb=workbooks.open p & f
for each st in wb.sheets
if st.name<>"报告页" and st.name<>"站点页" then st.delete
next st
wb.save
wb.close
f=dir
wend
end sub
如果需要一次删e69da5e6ba907a686964616f332除Excel工作簿中所有已定义的名称，可以使用下面的方法：
一、使用VBA代码：
在Excel 2003中的“定义名称”对话框中，可以查看并逐个删除名称，但如果定义的名称非常多就会很繁琐。用下面的VBA代码可以一次删除工作簿中的所有定义名称。方法是：
1.按快捷键Alt+F11，打开VBA编辑器。在右侧的代码窗口中输入：
Sub DeleteAllNames()
Dim nm As Name
For Each nm In ThisWorkbook.Names
nm.Delete
Next nm
End Sub
2.将光标定位到这段代码中，单击工具栏中的“运行子过程/用户窗体”按钮，或直接按F5键运行代码。该工作簿中的所有定义名称将被删除。
还可以在VBA编辑器中，按Ctrl+G打开“立即”窗口，输入下列代码然后按回车键：
executeexcel4macro "sum(delete.name(names()))"
也可以一次删除工作簿中的所有名称。
二、用Excel 2007名称管理器
在Excel 2007中的名称管理器中，可以一次删除所有名称。方法是：
1.在功能区中单击“开始”选项卡，在“定义的名称”组中，单击“名称管理器”按钮，弹出“名称管理器”对话框。
2.在对话框中选择第一个名称，然后按住Shift键选择最后一个名称，这将选择所有的名称。
3.单击“删除”按钮，然后关闭对话框