用公式在Excel中获取范围名称

Question

我已经在 Excel 中命名了一堆列。

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

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

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

这是我为单个单元格找到的。

    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