此名称“”已存在。单击“是”使用此版本的名称,或单击“否”重命名正在移动或复制的“”版本。
代码实时调试
在立即窗口中,输如以下一行文字:
for each n in names : n.visible = true : next
*****************需要点击运行按钮****************
Sub AAA()
For Each n In Names: n.Visible = True: Next
End Sub
这个更好
Sub DisplayNames()
Dim Na As Name
For Each Na In ThisWorkbook.Names
Na.Visible = True
Next
End Sub
接下来,删除名称管理器中的名称。
按快捷键 Ctrl+F3 调出名称管理器