VBA中如何将Range单元格值正确拼接添加到超链接地址

你的代码存在两处错误，导致超链接地址拼接不符合预期：

• 给myUrl赋值时，你把自定义的Number变量写在了双引号内部，VBA会将引号内的内容识别为固定字符串，不会读取变量存储的单元格值。
• myUrl的赋值位置在循环外，循环过程中每次拼接地址都会重复叠加旧内容，且提前赋值的Number变量没有实际参与逻辑，完全冗余。

Sub GenerateCustomHyperlinks()
    Dim i As Long
    Dim baseUrl As String
    Dim fullLink As String
    
    ' 配置超链接固定前缀
    baseUrl = "https://www.google.com/"
    ' 起始行设为第7行
    i = 7
    
    ' 遍历D列，直到遇到空单元格停止
    Do While Trim(Range("D" & i).Value) <> ""
        fullLink = baseUrl & Range("D" & i).Value
        ' 在D列右侧单元格插入超链接
        ActiveSheet.Hyperlinks.Add _
            Anchor:=Range("D" & i).Offset(, 1), _
            Address:=fullLink,
            TextToDisplay:="跳转链接"
        i = i + 1
    Loop
End Sub

• 所有变量建议提前明确声明类型，避免VBA默认使用变体型带来的隐性计算错误，可以在模块顶部加Option Explicit强制变量声明。
• 循环判断增加Trim()函数，是为了过滤单元格内只有不可见空格的场景，避免循环提前终止或进入死循环。
• TextToDisplay参数可以按需修改，用来设置超链接单元格显示的文字，不需要的话直接删掉这行参数即可。

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