coy 的程序人生

有鸟止南方之阜,三年不翅,不飞不鸣
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

删除EXCEL里所有的Names

Posted on 2010-11-24 13:16  coy  阅读(923)  评论(0编辑  收藏  举报

有的Excel里定义了很多Name,可是在Insert->Name->Define里却看不到,也就无法删除。不知道是自己对Excel还不太了解还是Excel本身的问题,总之,现在找到一个办法用VBA把所有的Name删掉。

1、按Alt+F11进入VBA编辑器

2、点击Insert->Module

3、输入下面的代码:

Sub ClearNames()

Dim wb As Workbook
Dim n As Name

For Each n In ThisWorkbook.Names
n.Delete
Next n

Set n = Nothing

End Sub

4、保存并关闭退出,回到Excel。

5、按Alt+F8,选择ClearNames,点击运行