搜集网上资料整合，非原创，原因是被宏病毒搞的很头痛，辛苦做出来的内容又不能删除，但是又不知道如何清除病毒，最终找到解决方法如下：
这是因为 有些工作表和名称已经被隐藏了。
首先，使用Alt+F11,在工程窗口选择“Thisworkbook”,输入如下宏命令，然后在运行-运行子过程/用户窗体，将二者显示出来
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
第二，回到Excel工作簿然后将多余的Marco的sheet删除。
第三，按 ctrl+F3 显示名称管理器，将其中的所有名称删除。 搞定！！！