如何编写宏将动态单元格内容拼接至静态超链接生成新超链接

没问题，这事儿很简单，我给你写一个实用的VBA宏，完美匹配你的需求：

Sub GenerateDynamicHyperlink()
    ' 定义变量
    Dim sourceCell As Range
    Dim targetCell As Range
    Dim baseUrl As String
    Dim dynamicPart As String
    
    ' 设置固定的URL前缀
    baseUrl = "http://www.google.com/"
    
    ' 指定来源单元格（F12）和目标单元格（F13）
    Set sourceCell = ThisWorkbook.ActiveSheet.Range("F12")
    Set targetCell = ThisWorkbook.ActiveSheet.Range("F13")
    
    ' 获取来源单元格的内容，去除首尾空格
    dynamicPart = Trim(sourceCell.Value)
    
    ' 检查来源单元格是否为空，避免生成无效链接
    If dynamicPart <> "" Then
        ' 清除目标单元格原有的内容和链接
        targetCell.Clear
        
        ' 生成动态超链接
        ThisWorkbook.ActiveSheet.Hyperlinks.Add _
            Anchor:=targetCell, _
            Address:=baseUrl & dynamicPart, _
            TextToDisplay:=baseUrl & dynamicPart ' 也可以改成你想要显示的文本，比如直接用dynamicPart
    Else
        ' 如果来源单元格为空，提示用户
        MsgBox "F12单元格不能为空，请输入内容后再运行宏！", vbExclamation, "提示"
    End If
End Sub

代码说明： #

• 我加了空值检查，避免F12为空时生成无效的http://www.google.com/链接，还会弹出提示框提醒你。
• TextToDisplay参数可以自定义显示的文本，如果你不想显示完整URL，只想显示F12里的内容，把这行改成TextToDisplay:=dynamicPart就行。
• 代码里用了ThisWorkbook.ActiveSheet，确保是在当前打开的工作簿的活动工作表上操作，如果你要指定特定工作表（比如名为"Sheet1"），可以改成ThisWorkbook.Sheets("Sheet1")。

怎么使用： #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 在左侧的项目窗口里，右键点击你的工作簿名称，选择插入 → 模块。
3. 把上面的代码粘贴到新模块里。
4. 按下F5运行宏，或者回到Excel界面，点击开发工具 → 宏，选择GenerateDynamicHyperlink后点击执行。

如果你想更方便，还可以给这个宏绑定一个按钮，这样点击按钮就能直接运行啦！

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