如何解决Excel VBA无法提取单元格超链接目标引用的问题

你的问题出在超链接属性的误用：当超链接指向当前工作簿内的单元格时，Hyperlink.Address属性是空值，真正的目标单元格引用存储在Hyperlink.SubAddress属性中。你之前的代码一直读取Address，自然拿不到正确的单元格引用。

修正后的代码 #

For i = 5 To lastRow ' 假设第1行是表头
    Set linkCell = wsSource.Cells(i, "S")
    
    If linkCell.Hyperlinks.Count > 0 Then
        Set hyperlink = linkCell.Hyperlinks(1)
        
        ' 优先读取SubAddress（同工作簿超链接的目标）
        If hyperlink.SubAddress <> "" Then
            cellReference = hyperlink.SubAddress
            ' 如果需要去掉工作表名称，只保留单元格引用，可以用Split处理
            ' cellReference = Split(cellReference, "!")(1)
        Else
            ' 处理外部链接的情况（如果需要）
            cellReference = hyperlink.Address
        End If
        
        ' 输出验证
        Debug.Print "目标引用: " & cellReference
        ' 写入到T列
        wsSource.Cells(i, "T").Value = cellReference
    End If
Next i

补充说明 #

• 对于同工作簿内的超链接：Address为空，SubAddress格式通常是工作表名!单元格地址（比如Sheet2!B5），如果只需要单元格部分，可以用Split(cellReference, "!")(1)拆分提取。
• 对于外部文件/网页超链接：Address存储完整路径或URL，SubAddress可能为空（或指向外部文件内的特定位置）。

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