Excel迅速刪除工作簿中所有已定義的名稱

?如果需要一次刪除Excel工作簿中所有已定義的名稱，可以使用下面的方法：

??? 一、使用VBA代碼：

??? 在Excel 2003中的“定義名稱”對(duì)話框中，可以查看并逐個(gè)刪除名稱，但如果定義的名稱非常多就會(huì)很繁瑣。用下面的VBA代碼可以一次刪除工作簿中的所有定義名稱。方法是：

??? 1.按快捷鍵Alt+F11，打開(kāi)VBA編輯器。在右側(cè)的代碼窗口中輸入：

??? Sub DeleteAllNames()
????? Dim nm As Name
????? For Each nm In ThisWorkbook.Names
????????? nm.Delete
????? Next nm
??? End Sub

??? 2.將光標(biāo)定位到這段代碼中，單擊工具欄中的“運(yùn)行子過(guò)程/用戶窗體”按鈕，或直接按F5鍵運(yùn)行代碼。該工作簿中的所有定義名稱將被刪除。

??? 還可以在VBA編輯器中，按Ctrl+G打開(kāi)“立即”窗口，輸入下列代碼然后按回車鍵：

??? executeexcel4macro "sum(delete.name(names()))"

??? 也可以一次刪除工作簿中的所有名稱。

??? 二、用Excel 2007名稱管理器

??? 在Excel 2007中的名稱管理器中，可以一次刪除所有名稱。方法是：

??? 1.在功能區(qū)中單擊“開(kāi)始”選項(xiàng)卡，在“定義的名稱”組中，單擊“名稱管理器”按鈕，彈出“名稱管理器”對(duì)話框。

??? 2.在對(duì)話框中選擇第一個(gè)名稱，然后按住Shift鍵選擇最后一個(gè)名稱，這將選擇所有的名稱。

???

??? 3.單擊“刪除”按鈕，然后關(guān)閉對(duì)話框。