Aspose.Cells：如何根据.NET中的Cell对象获取对应单元格名称

Aspose.Cells没有直接提供从Cell对象获取对应名称的属性，但可以通过两种更高效的方式实现需求，避免无差别遍历所有名称：

方法1：定向查找（单次查询高效） #

针对单个Cell，先检查其所属工作表的本地名称集合，再检查工作簿的全局名称集合，只判断单单元格名称的匹配情况：

Imports Aspose.Cells

Function GetAssignedCellName(targetCell As Cell) As String
    Dim worksheet As Worksheet = targetCell.Worksheet
    Dim workbook As Workbook = worksheet.Workbook

    ' 优先检查工作表级名称
    For Each wsName As Name In worksheet.Names
        Dim nameRange As Range = wsName.RefersToRange
        ' 仅匹配单单元格名称，且地址完全一致
        If nameRange IsNot Nothing AndAlso nameRange.IsSingleCell Then
            If nameRange.Row = targetCell.Row AndAlso nameRange.Column = targetCell.Column Then
                Return wsName.Text
            End If
        End If
    Next

    ' 再检查全局名称
    For Each globalName As Name In workbook.Names
        Dim nameRange As Range = globalName.RefersToRange
        If nameRange IsNot Nothing AndAlso nameRange.IsSingleCell Then
            If nameRange.Worksheet Is worksheet AndAlso nameRange.Row = targetCell.Row AndAlso nameRange.Column = targetCell.Column Then
                Return globalName.Text
            End If
        End If
    Next

    ' 无匹配名称时返回单元格地址
    Return targetCell.Name
End Function

方法2：缓存映射（多次查询最优） #

如果需要频繁查询多个Cell的对应名称，建议一次性构建地址到名称的映射字典，后续查询直接O(1)获取结果：

Imports Aspose.Cells
Imports System.Collections.Generic

Private _cellNameMap As Dictionary(Of String, String)

' 初始化映射字典（建议在工作簿加载完成后调用一次）
Sub InitializeCellNameMapping(workbook As Workbook)
    _cellNameMap = New Dictionary(Of String, String)(StringComparer.OrdinalIgnoreCase)

    ' 加载全局名称
    For Each globalName As Name In workbook.Names
        AddSingleCellNameToMap(globalName)
    Next

    ' 加载所有工作表级名称
    For Each worksheet As Worksheet In workbook.Worksheets
        For Each wsName As Name In worksheet.Names
            AddSingleCellNameToMap(wsName)
        Next
    Next
End Sub

' 辅助方法：将单单元格名称添加到映射
Private Sub AddSingleCellNameToMap(name As Name)
    Dim nameRange As Range = name.RefersToRange
    If nameRange IsNot Nothing AndAlso nameRange.IsSingleCell Then
        ' 构建唯一键：工作表名+单元格地址（如"Sheet1!A1"）
        Dim key As String = $"{nameRange.Worksheet.Name}!{nameRange.Name}"
        ' 避免重复键（全局名称优先级高于工作表级，可根据需求调整）
        If Not _cellNameMap.ContainsKey(key) Then
            _cellNameMap.Add(key, name.Text)
        End If
    End If
End Sub

' 查询方法
Function GetAssignedCellName(targetCell As Cell) As String
    Dim key As String = $"{targetCell.Worksheet.Name}!{targetCell.Name}"
    If _cellNameMap.TryGetValue(key, Dim out cellName As String) Then
        Return cellName
    End If
    Return targetCell.Name
End Function

说明 #

• 两种方法都只处理单单元格名称，符合你的需求场景；
• 方法1适合单次或少量查询，无需额外初始化；
• 方法2适合频繁查询，初始化一次后查询效率极高；
• 若存在同名地址的全局/工作表级名称，可根据需求调整优先级（示例中全局名称优先）。

内容的提问来源于stack exchange，提问作者Valarenti