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

cflood · 发表于 2010-3-12 21:31

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

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

竟然name都有visible属性，学习了。

lion3005 · 发表于 2010-3-14 10:39

帖子讨论了两三天，貌似解决了，强烈感谢各位跟帖的大侠们！！

总结一下（excel2003的方法）：

第1步、先用以下代码删除能删除的定义名称
Sub del_name()
On Error Resume Next
For Each na In ActiveWorkbook.Names
na.Visible = True
na.Delete
Next
End Sub
第2步、手工删除：
1）ctrl+f3调出定义名称框，结合鼠标和Alt+D【左右手配合】删除不算太顽固的定义名称。
2）工具--选项--常规--R1C1引用样式，在弹出的名称冲突框顺便输入一些不重复的字（如果重复或者不合法，会提示重输），一直输到弹出框消失为止。
3）重复第1步（如有需要之后将2）的R1C1引用样式调回来）
第3步、保存--结束。

lion3005 · 发表于 2010-3-16 11:02

今天终于装了07，试用了一下，想全自动的方法还是不行，不过可以选中全部一次性手工删除[毕竟先进了一点]，方法总结了在一楼，再次感谢各位了。当然最希望的还是用VBA可以自动完成。

xihabang · 发表于 2010-12-28 11:50

kk
加一句 On Error Resume Next

但是也不能完全删除

zh8224 · 发表于 2011-2-25 16:09

楼主解决了我的大问题。感谢

lukua · 发表于 2011-3-31 19:17

visible属性是什么意思呢？谢谢

lb_bn · 发表于 2011-3-31 21:54

可以设置为可见与不可见。
就像隐藏与显示一行单元格一样。

kaheen · 发表于 2016-7-12 15:30

每期上交的表要纯数值，所以要全部删除名称。我的情况可以用以下办法解决：另存为XLSX格式，配合Application.DisplayAlerts = False这句，名称全无。

panshuying1973 · 发表于 2022-6-23 13:04

真的解决了，非常感谢

bill15014244385 · 发表于 2023-2-11 23:36

关注一下，求解！

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

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

回复 9楼 kevinchengcw 的帖子

回复 21楼 cflood 的帖子

回复 26楼 lukua 的帖子