VBA中如何同时使用.Hyperlinks.Add Address与.Formula生成超链接

代码存在两个核心问题导致运行不符合预期：

• VBA中字符串换行拼接必须在每行末尾加&连接符，你拆分的三段URL没有做续行连接，本身语法就存在问题
• Hyperlinks.Add的Address参数仅接受静态文本值，你直接把公式字符串拼接进参数，公式不会被自动计算，自然会被当成普通文本拼到URL里。

直接在VBA逻辑中提取B列的有效文档编号，再拼接完整URL即可，不需要往单元格里写公式，运行效率更高，修正后的完整代码如下：

Dim zRange As Range, zCells As Range
Dim docNo As String, baseUrl As String, suffixUrl As String
Dim bVal As String, splitPos As Long

' 预定义URL固定部分，避免循环内重复赋值
baseUrl = "https://webdocs.com/#!/cancelar/incoming/document_list_organization?page=1&document_recipient_reg_number="
suffixUrl = "&boss=-1&from_date=01.01.2022&to_date=12.31.2022&year=2022"

' 注意替换为你实际操作的工作表对象，示例用ActiveSheet
With ActiveSheet
    Set zRange = .Range("I3", .Range("I3").End(xlDown)).Offset(0, 5)
    .Range("N2").Value = "Find the document"

    For Each zCells In zRange
        bVal = .Range("B" & zCells.Row).Value
        splitPos = InStr(1, bVal, Chr(10))
        ' 跳过格式不符合要求的行，避免运行报错
        If splitPos > 0 Then
            ' 提取换行符前内容，去掉开头2位的№字符得到有效编号
            docNo = Mid(Left(bVal, splitPos - 1), 3)
            .Hyperlinks.Add Anchor:=zCells, _
                Address:=baseUrl & docNo & suffixUrl, _
                ScreenTip:="Open the document", _
                TextToDisplay:="Open the document"
        End If
    Next zCells
End With

• 原代码中Dim zRange, zCells As Range的写法在VBA里会把zRange声明为变体型，不是Range类型，修正后已经显式声明类型，避免隐式转换问题
• 提取编号用Mid(xxx,3)比原来嵌套Right+Left的写法更简洁，效果完全一致：№占2个字符，从第3位开始取就是去掉前缀的编号
• 增加了格式校验逻辑，如果B列单元格没有换行符会直接跳过，不会弹出运行时错误中断脚本

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