excel名称管理没有,但复制会有显示名称重复

sm301

请教一下，以下是什么原因：
1、名称管理器里没有定义名称：




2、重新复制时确显示有重复的名称

望高手指点，感谢！

493861364

附件发一下

jany1312

有可能是使用代码把名称隐藏了

沈默00

多半是隐藏了，，，，

沈默00

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

sm301

沈默00 发表于 2024-4-25 16:57
Sub excel自定义名称显示和隐藏()
On Error GoTo ERR1
Dim nm As Name　

确实是隐藏了，用你的代码后显示出来了。谢谢！