怎么批量删除已经出错了的自定义名称

paipaitemp · 发表于 2009-7-2 16:40

一个工作簿中有好几千个自定义名称，而且都是出错的名称，请教如何用VBA批量删除，包括删除掉print_area。

Zamyi · 发表于 2009-7-2 16:53

LZ，文件打开不呀！

paipaitemp · 发表于 2009-7-2 17:02

下载后用EXCEL2003就可以打开了.不过用EXCEL2007好像不停地要改名称的，要改无数次,换言之,用2007打不开!

laoyebin · 发表于 2009-7-2 17:10

2007为什么会这样呀，晕，只能关进程

Zamyi · 发表于 2009-7-2 17:13

没03的，不用打开，你试试：
Public Sub ERER()
Dim N As Name
For Each N In ThisWorkbook.Names
If InStr(N, "#REF!") Or InStr(N, "print_area") Then N.Delete
Next
End Sub

LAOMALIN · 发表于 2009-7-2 17:27

Sub ronhy()
Dim i&, mystr$

For i = 1 To ThisWorkbook.Names.Count - 1
mystr = ThisWorkbook.Names(i).Value
If InStr(1, mystr, "#REF!") > 0 Then ThisWorkbook.Names(i).Delete
Next i
End Sub