删除所有定义的名称（指定保留的除外）

zhangshine

找了一段代码，想要删除全部定义名称。后来发现不能全删，因为有两个名称“Print_Area”和“Print_Titles”这两个是和打印设置有关的。于是胡乱改写成下面这样：

1. Sub 清除定义名称()
   
2. Dim n As Name
   
3. For Each n In ActiveWorkbook.Names
   
4. If n <> "Print_Area" And n <> "Print_Titles" Then
   
5. n.Delete
   
6. End If
   
7. Next
   
8. End Sub
   

复制代码

但执行的结果仍然是全部删除。虽然这里提供的附件，里面的定义名称不多。其实可以用录制宏的方法来指定需要删除的，但我假设要删除上百个。所以我只需指定不要删除的那几个（也就是上面讲的打印设置）。请哪位前辈帮我改一下。不甚感激！

phsu

將And改成Or。

zhangshine

phsu 发表于 2015-9-7 13:35
將And改成Or。

没有效果，还是和原来一样哦。

龙城飞将III

zhangshine 发表于 2015-9-7 13:48
没有效果，还是和原来一样哦。

1. 
   
2. Sub 清除定义名称()
   
3. Dim n As Name
   
4. For Each n In ActiveWorkbook.Names
   
5.     If InStr(n.Name, "Print_Area") = 0 And InStr(n.Name, "Print_Titles") = 0 Then
   
6.         n.Delete
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

cqlpjxx

Sub 清除定义名称()
Dim n As Name
For Each n In ActiveWorkbook.Names
If InStr(1, n.Name, "Print_Area") = 0 And InStr(1, n.Name, "Print_Titles") = 0 Then
n.Delete
End If
Next
End Sub

zhangshine

龙城飞将III 发表于 2015-9-7 14:05

虽然不懂为什么是你这样的写法，但是非常感谢您的帮助！

zhangshine

cqlpjxx 发表于 2015-9-7 14:13
Sub 清除定义名称()
Dim n As Name
For Each n In ActiveWorkbook.Names

多谢大侠！

龙城飞将III

zhangshine 发表于 2015-9-7 14:16
虽然不懂为什么是你这样的写法，但是非常感谢您的帮助！

楼主可以F8一步一步运行下你的源程序，看下每个n的名称，其实是工作表名+我们看到的名称名。所以这儿不能直接判断是否相等，要看是否包含。

lzqmsy

留个记号,以后会用到的

zhangshine

龙城飞将III 发表于 2015-9-7 14:22
楼主可以F8一步一步运行下你的源程序，看下每个n的名称，其实是工作表名+我们看到的名称名。所以这儿不能 ...

原来是这样，多谢大侠指点！