[英]Delete Broken Named Ranges in Excel Using VBA
更大的宏的一部分涉及检测和删除在将工作表移动/复制到主工作簿时无意中重复的命名范围。 这些“中断的”命名范围由名称管理器中的“值”列指示,显示为“ #REF!”。
我尝试使用以下宏删除这些命名范围:
Sub DeleteBrokenNamedRanges()
Dim NR As Name
Dim numberDeleted As Variant
numberDeleted = 0
For Each NR In ActiveWorkbook.Names
If InStr(NR.Value, "#REF!") > 0 Then
NR.Delete
numberDeleted = numberDeleted + 1
End If
Next
MsgBox ("A total of " & numberDeleted & " broken Named Ranges deleted!")
End Sub
不幸的是,返回值为0,并且没有删除命名范围。 我玩过保护/取消保护和InStr
一些参数,但是没有任何效果。
NR.Value
的返回不是#REF! 或预期的类似错误代码,但实际上是=C:\\Blahblah\\blarg.xls
路径。
任何帮助,将不胜感激,谢谢!
我不认为错误代码作为范围值存在(不是我对此有任何权威)。 如果有效范围内的错误不是#REF! 这可能是一个问题,但我认为类似
IsError(NR.RefersToRange)
可能是检查损坏的命名范围的好方法吗?
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.