EXCEL技巧|如何删除自定义名称？

使用excel制表时为了保持表格格式，最好的办法不是复制粘贴，而是“移动或复制”。不过这个操作经常会碰到这个恼人的问题---即名称已存在的提醒，而且这个弹框只能选“是”OR“否”，没办法关闭，有时候会有几十、上百个弹框，于是就只能无奈的疯狂敲击“enter”。。。

--

出现这种问题，解决办法如下：（以excel2010版本为例）

一、删除可见的定义名称
路径为：公式→名称管理器→全选→删除

搜狗截图20170630093730.png

二、删除隐藏的定义名称
如果打开名称管理器是空的，那就说明名称被隐藏了。这时候就要采取另一种做法。
路径为：按ALT+F11→打开VBE编辑器→插入→模块→复制下面代码→按F5键运行→运行完隐藏的定义名称就会出现在名称管理器了，再返回去删除即可。
这个代码运行结果为：如果工作薄中有自定义名称就会在名称管理器显示出来，再次运行可以隐藏所有自定义名称。如果没有会提示本工作簿没有定义名称。

Sub excel自定义名称显示和隐藏()
On Error GoTo ERR1
Dim nm As Name　
Dim bVisible As Boolean
With ThisWorkbook
If .Names.Count > 0 Then
If .Names(1).Visible = False Then bVisible = True
For Each nm In .Names
nm.Visible = bVisible
Next nm
If bVisible Then
MsgBox ("所有名称可见！")
Else
MsgBox ("所有名称隐藏！")
End If
Else
MsgBox ("本工作簿没有定义名称！")
End If
End With
Exit Sub
ERR1:
MsgBox (Err.Description)
End Sub