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