Excel迅速删除工作簿中所有已定义的名称

?如果需要一次删除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.单击“删除”按钮，然后关闭对话框。