如何批量将左侧列超链接标签“source”替换为右侧列内容？

方法一：VBA 宏批量处理 #

• 假设左侧超链接列是A列，右侧对应替换文本列是B列，先选中需要处理的行范围；
• 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub ReplaceHyperlinkText()
    Dim rng As Range
    Dim cell As Range
    Set rng = Selection
    For Each cell In rng
        If cell.Hyperlinks.Count > 0 Then
            cell.Hyperlinks(1).TextToDisplay = cell.Offset(0, 1).Value
        End If
    Next cell
End Sub

• 执行这个宏，就能批量把左侧超链接的显示文本换成右侧对应单元格的内容，超链接目标地址完全不变。

方法二：Power Query 可视化操作 #

• 选中你的数据区域，点击「数据」选项卡 →「从表格/区域」，把数据导入Power Query编辑器；
• 添加自定义列，输入公式：=HYPERLINK([@超链接列列名],[@替换文本列列名])，把里面的列名换成你实际的列标题；
• 删除原来的超链接列，把新建的自定义列重命名成原来的列名，最后点击「关闭并上载」，就能得到替换好的超链接列，目标地址不会改动。

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