VBA删除当前工作簿中的无效名称

分类:代码, 博客 标签:

通过Excel自定义名称Name的RefersTo属性,可以快速的通过VBA500万彩票清除无效的自定义名称,具体代码如下:

Sub DeleteBadRefs()
    Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        If InStr(1, nm.RefersTo, "#REF!") > 0 Then
            'List the name before deleting
            Debug.Print nm.Name & ": deleted"
            nm.Delete
        End If
    Next nm
End Sub

无任何技术含量,把代码复制到VBA编辑器中运行即可。



分类:代码, 博客 标签:

发表评论

You must be logged in500万彩票 to post a comment.