vba - 使用公式获取 Excel 中范围的名称

Question

我在 Excel 中命名了一堆列。

现在我希望能够使用公式获取单元格中列的名称。

例如，如果 A:A 被命名为“日期”，我希望能够在单元格中放入一个公式，以便 =RangeName(A:A) 返回单词“日期”。

我找到了如何对单个单元格执行此操作的示例，但没有找到对一系列单元格执行此操作的示例。

这是我在单个细胞中发现的。

    Public Function CellName(cel As Range) As Variant
Dim nm As Name
    For Each nm In Names
        If nm.RefersTo = "=" & cel.Parent.Name & "!" & cel.Address Then
            CellName = nm.Name
            Exit Function
        End If
    Next
CellName = CVErr(xlErrNA)
End Function

Answer 1

这听起来像是一个Intersect的例子:

Public Function CellName(cel As Range) As Variant
    Dim nm As Name
    For Each nm In Names
        If Not Intersect(cel, nm.RefersToRange) Is Nothing Then
            CellName = nm.Name
            Exit Function
        End If
    Next
    CellName = CVErr(xlErrNA)
End Function