excel - _xlfn.IFERROR Excel2013删除

Question

Sub DeleteNames() 
 Dim nName As Name 
  For Each nName In ThisWorkbook.Names 
   If nName.Name Like "_xlfn.*" Then nName.Delete 
  Next nName 
End Sub

无法使用错误 1004

Sub ShowNames() 
 Dim nName As Name 
  For Each nName In ThisWorkbook.Names 
   nName.Visible = True 
  Next nName 
End Sub 

无法处理错误运行时错误 438“对象不支持此属性或方法

如何删除_xlfn.IFERROR命名范围？

Answer 1

今天，当我复制包含命名范围的工作表时遇到了这个问题，后来我从原始工作表中删除了该范围。但是，该名称无法使用，因为它仍然由 excel 使用 .RefersTo 值“=#NAME?”进行索引。并命名为“_xlfn.IFERROR”。遗憾的是，有错误的命名范围在名称管理器中不可见，也无法使用 VBA 子例程删除它，从而出现错误 1004。

我解决这个问题的方法:1. 在您选择的模块中用 VBA 定义一个子例程，这将使错误的命名范围在名称管理器中可见:

Public Sub makeNameJunkVisible()
Dim n As Name
  For Each n In ThisWorkbook.names
    If n.RefersTo = "=#NAME?" Then
      n.visible = True
    End If
  Next n
end sub

打开名称管理器，它位于功能区菜单的“公式”选项卡中现在，错误的命名范围应该在名称管理器上可见，并且您应该能够将其删除。