使用excel制表时为了保持表格格式,最好的办法不是复制粘贴,而是“移动或复制”。不过这个操作经常会碰到这个恼人的问题---即名称已存在的提醒,而且这个弹框只能选“是”OR“否”,没办法关闭,有时候会有几十、上百个弹框,于是就只能无奈的疯狂敲击“enter”。。。
出现这种问题,解决办法如下:(以excel2010版本为例)
一、删除可见的定义名称
路径为:公式→名称管理器→全选→删除
二、删除隐藏的定义名称
如果打开名称管理器是空的,那就说明名称被隐藏了。这时候就要采取另一种做法。
路径为:按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