如何在 Excel 中一次性更改多个超链接路径？

出于某些目的，您可能需要在工作表中为数据创建多个超链接，并且所有超链接都指向同一个文件路径或地址。但现在，您需要将此超链接路径替换为另一个地址。如果逐个更改超链接的路径会浪费大量时间，是否有快速解决此问题的方法呢？

使用 VBA 代码一次性更改工作表中的多个超链接路径

通过一项出色的功能，在工作表/工作簿/多张工作表/选定区域中一次性更改多个超链接路径

使用 VBA 代码一次性更改工作表中的多个超链接路径

假设您有一个包含相同超链接的数据列表（如下图所示），通过一段 VBA 代码，您可以快速将工作表中的旧文件路径或地址替换为新的路径或地址。

1. 按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下宏粘贴到模块窗口中。

VBA 代码：一次性更改多个超链接路径

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. 然后按 F5 键运行此代码，弹出一个提示框，让您在“ 旧文本”框中输入旧的超链接地址。请参见截图：

4. 单击 确定，接着会弹出另一个提示框，提醒您输入想要使用的新超链接地址。

5. 然后单击 确定，所有相同的旧超链接地址都会立即被新地址替换。请参见截图：

通过一项出色的功能，在工作表/工作簿/多张工作表/选定区域中一次性更改多个超链接路径

如果您想从选定区域、多张工作表、当前工作簿或多个工作簿中替换超链接路径，该如何操作？借助 Kutools for Excel 的 查找和替换 功能，您可以快速完成此任务。

安装 Kutools for Excel 后，请执行以下操作：

1. 单击 Kutools > 导航，参见截图：

2. 在打开的 导航 窗格中，单击 查找和替换 选项卡，在 查找和替换 窗格中，单击 替换 选项卡，然后进行以下操作：

• 在 查找内容 文本框中输入要查找的旧超链接文本，然后在 替换为 文本框中输入要替换的新超链接文本；
• 从 范围 下拉列表中指定要查找并替换超链接路径的范围；
• 然后，从 查找范围 下拉菜单中选择 超链接；
• 最后，单击 查找全部 按钮，所有包含特定超链接文本的单元格都将列在底部的列表框中。

3. 然后，单击 全部替换 按钮，旧的超链接路径将立即更改为新的路径，请参见截图：

点击免费试用版下载 Kutools for Excel！

更多相关文章：