如何将HYPERLINK()公式批量转换为带底层跳转链接的文本单元格

方案1：VBA批量处理（最适合数百行数据的场景） #

• 选中你存放HYPERLINK公式的目标数据区域
• 按下Alt + F11打开VBA编辑器，依次点击菜单栏「插入」→「模块」
• 将下方代码粘贴到弹出的模块编辑窗口中：

Sub 批量转换HYPERLINK公式为普通超链接()
    Dim cell As Range
    Dim linkAddr As String, displayTxt As String
    On Error Resume Next
    For Each cell In Selection
        If LCase(Left(cell.Formula, 11)) = "=hyperlink" Then
            ' 提取链接地址和显示文本
            linkAddr = Split(cell.Formula, Chr(34))(1)
            displayTxt = Split(cell.Formula, Chr(34))(3)
            ' 清除原有公式，插入CTRL+K格式的超链接
            cell.Clear
            cell.Hyperlinks.Add Anchor:=cell, Address:=linkAddr, TextToDisplay:=displayTxt
        End If
    Next
    MsgBox "转换完成！", vbInformation
End Sub

• 按下F5运行代码，等待弹窗提示完成即可，转换后的超链接和手动按CTRL+K插入的效果完全一致，没有公式，点击直接跳转。

注意：运行前请备份原文件避免数据丢失。如果宏被禁用，可进入「文件-选项-信任中心-信任中心设置-宏设置」临时开启宏权限，处理完成后再恢复原有设置即可。WPS表格操作逻辑和代码完全通用。

方案2：无宏手动处理（适合少量数据、不想启用宏的场景） #

因为你的链接前缀固定，末尾ID和显示文本一致，可按以下步骤操作：

• 选中所有HYPERLINK公式区域，右键点击「选择性粘贴」→「值」，把公式转换为纯数字文本
• 新增空白辅助列，第一行输入公式="https://npiregistry.cms.hhs.gov/registry/provider-view/"&A1（A1替换为你第一个数字所在的单元格位置），下拉填充得到所有完整链接
• 选中辅助列所有链接内容，复制后右键「选择性粘贴」→「值」，把公式转成纯文本链接，Excel会自动识别为可跳转的超链接
• 选中辅助列的超链接，右键「编辑超链接」，把「要显示的文字」修改为对应ID即可。

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