vba 获取指定sheet中的名称管理器及对应的列字母

Sub GetNamedRangesAndColumnLetters()
    Dim ws As Worksheet
    Dim nm As Name
    Dim cellAddress As String
    
    ' 指定要操作的工作表
    Set ws = ThisWorkbook.Sheets("机器设备") ' 将 "Sheet1" 替换为你要操作的工作表名称
    
    ' 循环遍历工作表中的所有名称管理器
    For Each nm In ws.Names
        ' 获取名称管理器的引用
        cellAddress = ""
        
        ' 检查是否是引用特定单元格的名称管理器
        If nm.RefersToRange Is Nothing Then
            ' 这是一个定义的名称管理器，通常与公式相关
            ' 在这里你可以处理它的 RefersTo 属性，它包含了该名称管理器的定义
            ' 在本示例中，我们只显示名称管理器的名称和 RefersTo 属性的示例
            cellAddress = nm.RefersTo
        Else
            ' 这是一个引用单元格的名称管理器
            ' 获取名称管理器引用的单元格的列字母
            cellAddress = nm.RefersToRange.address
        End If
        
        ' 显示名称管理器的名称和对应的列字母
        Debug.Print "名称管理器名称: " & nm.Name; "" & GetColumnLetterFromAddress(cellAddress)
       
    Next nm
End Sub

Function GetColumnLetterFromAddress(address As String) As String
    ' 从地址字符串中提取列字母
    Dim colLetter As String
    Dim i As Integer
    colLetter = ""
    
    For i = 1 To Len(address)
        If Not IsNumeric(Mid(address, i, 1)) Then
            colLetter = colLetter & Mid(address, i, 1)
        Else
            Exit For
        End If
    Next i
    
    GetColumnLetterFromAddress = colLetter
End Function