在Excel中检索单元格名称

有没有办法在另一个单元格中显示特定单元格的单元格名称？我想在相邻单元格中显示单元格名称，以便用户无需单击即可识别单元格名称。

此函数将给出单元格所属的 NamedRange 的名称：

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

它循环遍历工作簿中的所有名称，然后针对每个名称检查它是否引用工作表输入参数来源中的任何内容。如果是，则检查输入单元格和名称引用的范围是否相交。如果他们这样做，它将返回范围的名称。