excel - 在 Excel 单元格中显示姓名不起作用

Question

我使用这个函数(这是Excel 2007，文件类型是*.xlsm)

Public Function CellName(oCell As Range) As Variant
Dim oName As Name
For Each oName In ThisWorkbook.names
  If oName.RefersToRange.Parent Is oCell.Parent Then
    If Not Intersect(oCell, oName.RefersToRange) Is Nothing Then
       CellName = oName.Name
       Exit Function
    End If
  End If
Next
CellName = CVErr(xlErrNA)
End Function

获取单元格的名称。

它工作正常，但可能我删除了一些行并且它显示了错误(因此它循环直到结束，没有找到名称)。对于工作簿中的每个单元格。公式中没有包含此内容的单元格是可以的。

我曾经遇到过这个问题，问题是——我记不太清了——有些名字没有指向任何东西。但现在，当我打开名称管理器时，所有名称都可以，没有一个与其他名称放置相同的单元格。

我写了一个宏:

Sub names_delete()
  Dim oName As Variant
  Dim i As Integer
  i = 0
  For i = 1 To ThisWorkbook.names.Count
   oName = ThisWorkbook.names(i).Name
   result = MsgBox(oName, vbYesNo + vbDefaultButton2, "Delete name?")

   If (result = vbYes) Then
     ThisWorkbook.names(i).Delete
     Exit Sub
    End If
  Next
End Sub

显示的第一个名称是“_xlfn.IFERROR”。我无法删除它。这不会显示在名称管理器中。

我用谷歌搜索，但唯一的答案是我可以使用我的Excel中不存在的函数，所以除了2007 Excel版本之外，但这不是真的，2007总是被使用，但是，我可能已经保存过一次2003年，我记不清了。

我的问题是 - 如何纠正这个函数以使其没有错误，或者如何删除这个“_xlfn.IFERROR”名称，或者错误可能在其他地方。

正如我所写，我已经遇到了类似的问题，但我通过修复错误的名称解决了它。这里所有内容都是正确的(“_xlfn.IFERROR”除​​外)。

编辑

我可以在公式中使用名称，没有问题。

Answer 1

名称“_xlfn.IFERROR”被隐藏，这意味着您无法在 Excel 的 native 名称管理器中看到它。您需要首先使用第三方解决方案(例如 JPK 的名称管理器或 Macabacus 的名称清理器)取消隐藏名称。然后，返回 Excel 的 native 名称管理器并删除该名称。