excel - 删除值为 '#NAME?' 或引用 '=#NAME?' 的命名范围

Question

无法使用#NAME 删除命名范围？

如何添加到我的 VBA 以删除它？

我创建了下面的代码，它删除了我的工作簿中除一个之外的所有命名范围，详细信息是:

名称:_xlfn.IFERROR值(value):#NAME？指的是:=#NAME?

'Delete All Named Ranges
Dim xName As Name
On Error Resume Next
    For Each xName In ActiveWorkbook.Names
        xName.Visible = True
        If InStr(1, xName.RefersTo, "=#NAME?") > 0 Then xName.Delete
        If InStr(1, xName.RefersTo, "#REF!") > 0 Then xName.Delete
        If InStr(xName.Value, "#REF!") > 0 Then xName.Delete
        xName.Delete
    Next xName
On Error GoTo 0
End Sub```

Answer 1

诀窍是 xName.RefersTo 将显示原始公式而不是评估值，例如=SomeFormulaThatDoesntExist 而不是 #NAME?

您可以通过使用 Evaluate(xName.RefersTo) 来克服它，它将为 #NAME? 错误返回 Error 2029。此外，您可以简单地将 IsError(Evaluate(xName.RefersTo)) 条件添加到您的代码中，例如:

If IsError(Evaluate(xName.RefersTo)) Then xName.Delete