Excel 2013批量修改超链接显示文本方法咨询

方法一：HYPERLINK公式批量生成 #

如果K列当前是纯LinkedIn链接文本：

• 在相邻空白列（如L列）的首行数据单元格（例：L2，假设表头在第1行）输入公式：

  =HYPERLINK(K2, "Profile")
  

• 下拉填充公式至所有含链接的行，选中L列结果后右键选择粘贴为值，最后替换原K列内容即可。

如果K列已用HYPERLINK函数生成超链接，需先转成纯文本链接：

• 复制K列内容到记事本，再复制回K列，此时超链接会变为纯文本，再按上述公式步骤操作。

方法二：VBA宏批量直接修改 #

无需新增列，直接修改K列现有超链接：

1. 按下Alt + F11打开VBA编辑器。
2. 右键左侧工作簿名称，选插入 -> 模块。
3. 在模块中粘贴以下代码：

Sub ChangeHyperlinkText()
    Dim rng As Range
    Dim cell As Range
    
    ' 定位K列有数据的区域
    Set rng = ThisWorkbook.ActiveSheet.Range("K2:K" & ThisWorkbook.ActiveSheet.Cells(Rows.Count, "K").End(xlUp).Row)
    
    For Each cell In rng
        If cell.Hyperlinks.Count > 0 Then
            cell.Hyperlinks(1).TextToDisplay = "Profile"
        End If
    Next cell
End Sub

4. 按下F5运行宏，或返回Excel界面，通过开发工具 -> 宏选择ChangeHyperlinkText执行。

注意：运行宏前建议备份文件，防止数据意外丢失。

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