如附件，Ctrl+F3,会发现有很多自定义名称，该怎样删除啊？

vicent518 · 发表于 2007-12-16 15:41

另外，如果两个工作簿中含有相同的单元格名称，然后想把一个工作表copy and move到另一个中，那这个名称会指向哪个单元格啊？如将附件中工作簿二中的表复制移动到工作簿1中，会出现什么结果？单元格名称"a", b"和"print_area"将会指向谁？

thanks.

jblz6p0G.rar (185.47 KB, 下载次数: 57)

白天睡觉 · 发表于 2007-12-16 16:06

删除名称的话,按CTL+F3出现的对话框中就有删除按钮.

如果名称重复的话,会有提示的,选择是使用原工作簿的名称,按否重命名插入的新工作表的名称.

--楼主想吓人哪,没见过这么多的名称,呵呵[em17]

vicent518 · 发表于 2007-12-16 16:11

我也不知道，哪来的这么多名称啊，一个个删不现实啊，有什么好办法吗，谢了

白天睡觉 · 发表于 2007-12-16 16:41

要一次性删除的话，可以用以下的宏

Sub ABC()
For Each x In ActiveWorkbook.Names
x.Delete
Next
End Sub
拷贝以上代码，按ALT+F11，插入一个模块，粘贴以上代码，然后运行这个宏就可以了

vicent518 · 发表于 2007-12-17 09:15

试了一下，说是that name is not valid. 能帮忙再看看吗

白天睡觉 · 发表于 2007-12-17 12:47

可能是因为名称中有乱码,加一句代码,可以删除所有可以删除的名称,剩下几个手工删除一下

Sub ABC()

on error resume next
For Each x In ActiveWorkbook.Names
x.Delete
Next
End Sub

工作薄1有6312个名称

工作薄2有6684个名称

真服了你,有这么多名称,可以去下贴爆料了

vicent518 · 发表于 2007-12-17 13:29

万分感谢啊，白天睡觉！困惑良久的问题终于解决了。看来我得多研究研究macro了。再次感谢！

lcm1023 · 发表于 2007-12-17 13:56

“白天睡觉”厉害!又学了一招！

白天睡觉 · 发表于 2007-12-17 22:48

QUOTE:

以下是引用vicent518在2007-12-17 13:29:16的发言：
万分感谢啊，白天睡觉！困惑良久的问题终于解决了。看来我得多研究研究macro了。再次感谢！

不用谢，我觉得你更应该想想的是怎么会建了这么多的名称，名称虽然好用，但也不能滥用啊。

aichong · 发表于 2007-12-17 23:09

请参考：[原创]EXCEL秘密二则:删除非法定义名称和减肥

		自动登录	找回密码
密码			免费注册