弹出 找不到#REF!$A$2，何解？

yunushi123456

解决这个问题很简单，复制，选择性粘贴即可。
比较感兴趣的是出现这个错误的原因？如何撤销这个引用？
这个表是中了宏病毒后，删除宏表后出现的问题。应该引用的是宏表中的数据。
核算表.rar (11.3 KB, 下载次数: 25)

2012-7-13 11:34 上传

点击文件名下载附件

yunushi123456

这是因为 有些工作表和名称已经被隐藏了。 首先，使用宏命令将二者显示出来，
Sub test()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Visible = xlSheetVisible
Next
Dim nm As Name
For Each nm In ThisWorkbook.Names
nm.Visible = True
Next
End Sub

第二，然后将多余的Marco的sheet删除。第三，按 ctrl+F3 显示名称管理器，将其中的所有名称删除。 搞定！！！

whoamiben

yunushi123456 发表于 2012-7-13 11:34
这是因为 有些工作表和名称已经被隐藏了。 首先，使用宏命令将二者显示出来，
Sub test()
Dim sh As Work ...

我试了没有用啊，问题如故{:021:}

sqhsqhli

ctrl+F3 显示名称管理器，将其中的所有名称删除

MoqiCW

#REF!$A$2，但看显示的错误内容，应该是缺少sheet的路径（感叹号前面的应该是sheet名称），应为删除sheet造成的 ，LZ提到要删除定义名称，说明在已删除的表中有专门的定义名称。
是不是说明，把部分定义了名称的数据可以单列一个sheet，更加安全可靠。

zhgghw

yunushi123456 发表于 2012-7-13 11:34
这是因为 有些工作表和名称已经被隐藏了。 首先，使用宏命令将二者显示出来，
Sub test()
Dim sh As Work ...

经试用，完全正确。只是被另外命名的工作表要一个一个删，表多了还是有点麻烦。谢谢！

很好，问题得到了解决，非常感谢！

yunushi123456 发表于 2012-7-13 11:34
这是因为 有些工作表和名称已经被隐藏了。 首先，使用宏命令将二者显示出来，
Sub test()
Dim sh As Work ...

请问再Excel2013中添加这段代码运行时出错怎么办