如何用VBA批量删除定义名称？[貌似解决了]

kevinchengcw · 发表于 2010-3-12 15:08

不是,我自己在这里定义了几个进行的测试

lion3005 · 发表于 2010-3-12 16:07

原帖由 kevinchengcw 于 2010-3-12 15:08 发表
不是,我自己在这里定义了几个进行的测试

如果是自己定义的话，直接用一楼的代码就可以搞定了。

Zamyi · 发表于 2010-3-12 16:22

这个问题论坛上讨论过，没有结论。偶以为：1楼表中不能删除的名称都因为名称的命名无效，如names("[ﾏｸﾛ97-07-29].NET表")，
其Delete方法拒不到其对象的入口，造成出错。至于如何产生错误名称，也许是各种语言的不同吧，如日文和中文，日文版的EXCEL中创建名称，到中文版的也许出现命名不符规定，但它又不会自动删除。不知楼主这些名称是怎样来的？

lion3005 · 发表于 2010-3-12 16:45

原帖由 Zamyi 于 2010-3-12 16:22 发表
这个问题论坛上讨论过，没有结论。偶以为：1楼表中不能删除的名称都因为名称的命名无效，如names("[ﾏｸﾛ97-07-29].NET表")，
其Delete方法拒不到其对象的入口，造成出错。至于如何产生错误名称 ...

估计肯定是日语的东西。但是就不能删除掉，头痛。

我用了下面的代码，调出里面的名称的name：结果发现还有一些隐藏的名称（如附件），不知道为啥。

Sub aa()
i = 1
On Error Resume Next
For Each na In ActiveWorkbook.Names
Range("a" & i) = na.Name
na(na.Name).Delete
i = i + 1
Next
End Sub

lb_bn · 发表于 2010-3-12 17:31

手动可以一次性删除的，
Ctrl+F3打开名称管理器，选中第一个，按住Shift，再选最后一个，删除。

lion3005 · 发表于 2010-3-12 17:53

原帖由 lb_bn 于 2010-3-12 17:31 发表
手动可以一次性删除的，
Ctrl+F3打开名称管理器，选中第一个，按住Shift，再选最后一个，删除。

大侠：你没用我的附件试过吧？手工删除只能删除一部分，到了最后，总会有几个超级顽固的名称存在的，而且那些隐藏的名称一直存在！

谢谢关注。。。

[ 本帖最后由 lion3005 于 2010-3-12 17:56 编辑 ]

Zamyi · 发表于 2010-3-12 18:04

原帖由 lion3005 于 2010-3-12 17:53 发表

大侠：你没用我的附件试过吧？手工删除只能删除一部分，到了最后，总会有几个超级顽固的名称存在的，而且那些隐藏的名称一直存在！

谢谢关注。。。

你这个还不算玩固，执行下面后手工可以删除的：
Public Sub dd()
For Each n In ThisWorkbook.Names
n.Visible = True
Next
End Sub

lb_bn · 发表于 2010-3-12 18:23

我的2010版没有问题。

lion3005 · 发表于 2010-3-12 19:38

原帖由 Zamyi 于 2010-3-12 18:04 发表

你这个还不算玩固，执行下面后手工可以删除的：
Public Sub dd()
For Each n In ThisWorkbook.Names
n.Visible = True
Next
End Sub

隐藏的东西的确出来了，但是以下的都不能手工直接删除（除非用一楼说的R1C1转换后就可以了，不过的确已经省了不少功夫了）：
0Crite
0Criteria
0Extr
0Extract
0Print_A
0PRINT_AREA

lion3005 · 发表于 2010-3-12 19:39

原帖由 lb_bn 于 2010-3-12 18:23 发表
我的2010版没有问题。

刚才误会了，我用的是2003，听说2007也可以。但没试过。。

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

[求助] 如何用VBA批量删除定义名称？[貌似解决了]

回复 16楼 lion3005 的帖子