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

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.单击“删除”按钮，然后关闭对话框。