如何批量的添加和删除定义名称？

小奔

Sheets("Sheet1").Select ActiveWorkbook.Names("Auto_Activate").Delete ActiveWorkbook.Names.Add Name:="sheet1!auto_activate", RefersToR1C1:= _ "=Macro!R1C1"

这是我录制的一个在sheet1表添加和删除定义名称的一个宏，我现在想要实现的是怎么将这个工作簿的所有工作表都批量的添加和删除定义名称。即sheet2!auto_activate, sheet3!auto_activate ,........sheetn!auto_activate

taller

Sub iname() On Error Resume Next For Each sht In ThisWorkbook.Worksheets If UCase(sht.Name) <> "MACRO" Then sht.Select ActiveWorkbook.Names("Auto_Activate").Delete ActiveWorkbook.Names.Add Name:=sht.Name & "!auto_activate", RefersToR1C1:= _ "=Macro!R1C1" End If Next End Sub

小奔

sht.Select ActiveWorkbook.Names("Auto_Activate").Delete 谢谢老师，添加名称没问题，就是删除名称不行，是不是这句有问题？

taller

删除比添加简单

Sub del_name() For Each na In ActiveWorkbook.Names na.Delete Next End Sub

oukyo

thanks。 删除的非常好用。对于我一个不懂VBA的人来说，真的解决问题了。不过还是希望能再写规范些，以便我们这些编程盲的人直接拷贝了就可以使用。谢谢了！！

Sub del_name()
For Each na In ActiveWorkbook.Names
na.Delete
Next
End Sub

ayuze

如果是删除指定的名称呢？

比如，我有一个名称“AA”，现在要把它删除，怎么写代码？

ayuze

我是6楼。
发现自己的问题有点太低级……

代码应该是：

Names("aa").delete