如何在Excel中复制粘贴公式生成的单元格为超链接？

问题核心：用HYPERLINK公式生成的超链接属于公式驱动的动态链接，单元格本身并没有真正的超链接属性——当你粘贴值时，公式被移除，只剩显示的纯文本，自然丢失超链接。要直接在Excel间/工作表间复制保留超链接，需先将公式链接转换为静态超链接，再进行复制操作。

方法1：用VBA批量转换为静态超链接 #

这是最高效的批量处理方式，转换后单元格变为带超链接的纯文本，复制粘贴无压力：

1. 打开包含HYPERLINK公式的Excel文件，按Alt+F11打开VBA编辑器
2. 右键左侧的工作簿名称，选择「插入>模块」
3. 在模块中粘贴以下代码：

Sub ConvertHyperlinksFromFormula()
    Dim cell As Range
    For Each cell In Selection
        ' 只处理HYPERLINK公式单元格
        If cell.HasFormula And Left(cell.Formula, 10) = "=HYPERLINK(" Then
            Dim urlPart As String, displayPart As String
            ' 提取公式中的URL（第一个引号对之间的内容）
            urlPart = Mid(cell.Formula, InStr(cell.Formula, """") + 1, _
                        InStr(InStr(cell.Formula, """") + 1, cell.Formula, """") - InStr(cell.Formula, """") - 1)
            ' 提取显示文本（第二个引号对之后的内容）
            displayPart = Mid(cell.Formula, InStrRev(cell.Formula, """") + 2, _
                           Len(cell.Formula) - InStrRev(cell.Formula, """") - 2)
            ' 给单元格添加静态超链接
            ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=urlPart, TextToDisplay:=displayPart
            ' 清除公式，保留文本和超链接
            cell.Value = displayPart
        End If
    Next cell
End Sub

4. 返回Excel界面，选中所有需要转换的HYPERLINK公式单元格
5. 按Alt+F8，选择ConvertHyperlinksFromFormula并点击「执行」

转换完成后，直接复制这些单元格到其他文件/工作表，无论是普通粘贴还是选择性粘贴值，超链接都会被保留。

方法2：手动转换（适合少量单元格） #

如果只有几个单元格需要处理，不用VBA也能搞定：

1. 选中HYPERLINK公式单元格，查看编辑栏里的URL和显示文本
2. 右键目标单元格，选择「链接>插入链接」
3. 在对话框中粘贴提取到的URL，输入显示文本后点击确定即可

方法3：用Power Query批量生成静态超链接 #

适合有大量数据需要处理的场景：

1. 选中包含HYPERLINK公式的单元格区域，点击「数据>从表格/区域」（Excel 2016及以后版本），确认弹出的对话框后进入Power Query编辑器
2. 在编辑器中，选中公式所在列，点击「转换>提取>值」，此时列内容变为显示文本
3. 添加自定义列，公式输入：= Hyperlink([原列名], [原列名])（替换「原列名」为实际列名），生成带超链接的内容
4. 点击「主页>关闭并上载」，将结果导出到新工作表，此时导出的单元格就是带静态超链接的文本，可直接复制粘贴。

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