Excel VBA中如何获取单元格内含#锚点的完整超链接地址

Excel 的超链接存储逻辑是早年为Office文档跳转设计的：会将URL中的#识别为「文档内锚点定位符」，自动把#之前的根路径存入Address属性，将#之后的定位参数内容存入SubAddress属性。这个拆分逻辑不会因为URL是外部网页地址就失效，因此单独读取ActiveCell.Hyperlinks(1).Address时，自然只能拿到#之前的部分，无法获取带前端路由参数的完整地址。

方案1：属性拼接还原完整地址 #

针对Excel手动插入的常规超链接，通过两个内置属性拼接即可还原完整URL：

Dim fullUrl As String
With ActiveCell.Hyperlinks(1)
    ' 检测到存在锚点内容时，补全#分隔符拼接完整地址
    If .SubAddress <> "" Then
        fullUrl = .Address & "#" & .SubAddress
    Else
        fullUrl = .Address
    End If
End With

注意：若拼接后出现路径分隔符冗余（比如Address末尾带斜杠、SubAddress开头也带斜杠），可额外用Replace函数清理多余的斜杠，保证路径格式正确。

方案2：提取公式原始值（适配特殊场景） #

如果遇到从外部粘贴的超链接、Excel拆分逻辑异常导致SubAddress存储错误的情况，直接读取单元格公式中存储的原始超链接字符串会更可靠——这个方法拿到的是未经Excel拆分处理的原始URL，不会丢失#后续的路由参数，尤其适配Windchill这类带单页应用前端路由的超链接提取场景：

Dim fullUrl As String
' 判断单元格是否为HYPERLINK公式格式
If Left(ActiveCell.Formula, 11) = "=HYPERLINK(" Then
    ' 提取公式中引号包裹的原始完整URL
    fullUrl = Split(ActiveCell.Formula, """")(1)
Else
    ' 非公式格式的超链接，回退到属性拼接逻辑
    With ActiveCell.Hyperlinks(1)
        If .SubAddress <> "" Then
            fullUrl = .Address & "#" & .SubAddress
        Else
            fullUrl = .Address
        End If
    End With
End If

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