Note: The other languages of the website are Google-translated. Back to English

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

出于某种目的,您可以为工作表中的数据创建多个超链接,并且所有超链接都链接到相同的文件路径或地址,但是现在,您需要一次用另一个地址替换该超链接路径。 单独更改超链接的路径可能会浪费大量时间,是否有解决此问题的快速方法?

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

一次更改一个工作表/工作簿/多个工作表/选择中的多个超链接路径,具有惊人的功能


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

假设您具有与以下屏幕快照相同的超链接数据列表,并且具有VBA代码,则可以使用新的VBA代码快速替换工作表中的旧文件路径或地址。

1. 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序窗口.

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。 点击 OK,然后会弹出另一个提示框,提醒您输入要使用的新超链接地址。

5。 然后点击 OK,所有相同的旧超链接地址立即被新的替换。 查看屏幕截图:


一次更改一个工作表/工作簿/多个工作表/选择中的多个超链接路径,具有惊人的功能

如果要替换选区,多个工作表,当前工作簿或多个工作簿中的超链接路径,该怎么办? 用 查找和替换 的特点 Kutools for Excel,您可以快速处理此任务。

请注意:申请这个 查找和替换 实用程序,首先,您应该下载 Kutools for Excel,然后快速轻松地应用该功能。

安装后 Kutools for Excel,请这样做:

1。 点击 库工具 > 旅游导航 ,请参见屏幕截图:

2。 在开 旅游导航 窗格中单击 查找和替换 标签,在 查找和替换 窗格中单击 更换 标签,然后执行以下操作:

  • 将您要查找的旧超链接文本输入到 查找内容 文本框,然后在其中键入您要替换的新超链接文本。 更换 文本框;
  • 指定您要查找的范围并从中替换超链接路径 下拉列表;
  • 然后,从“查找范围”下拉列表中选择“超链接”;
  • 最后点击 找到所有 按钮,包含特定超链接文本的所有相应单元格都已列在底部列表框中。

3。 然后,点击 “全部替换” 按钮,旧的超链接路径已立即更改为新的,请参见屏幕截图:

点击下载Kutools for Excel免费试用!


更多相关文章:

  • 从超链接中提取实际地址
  • 假设您有一系列包含超链接的单元格,现在您需要查看超链接的实际目的地,并从超链接中提取它们,如下面的屏幕截图所示。 有没有简单的方法可以快速解决此问题?
  • 在Excel中将图像URL转换为实际图像
  • 如果现在在A列中有一个图像URL地址列表,那么您想从URL下载相应的图片,并将其显示在相邻的B列中,如左图所示。 在Excel中,如何快速,轻松地从图像URL中提取实际图片?
  • 在Excel中将网址文本转换为可点击的超链接
  • 假设您的工作表中有多个URL,但是它们没有链接,现在您需要将所有未链接的URL转换为可单击的超链接,如下面的屏幕快照所示。 当然,您可以一次双击它们以使其可单击,但是如果有很多URL,这将很耗时。 如何在Excel中自动将多个未链接的URL转换为可单击的超链接?
  • 从Excel超链接打开PDF文档的特定页面
  • 将单元格链接到PDF文件时,通常,单击以打开超链接时,将转到PDF文件的第一页。 如果您需要通过单击超链接直接跳到PDF文件的特定页面,则本文可能会对您有所帮助。

最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (43)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
令人惊叹的它节省了我的大量精力。
该评论由网站上的主持人最小化
爱它,你为我节省了大量的工作。
该评论由网站上的主持人最小化
嗨,如果我需要在 Powerpoint 中而不是 excel 中更改链接,你能给我 VB 代码吗? 谢谢
该评论由网站上的主持人最小化
嗨,这似乎很好用,但有些字符(例如“\”和“%”)。 就我而言,我有超链接地址,例如 [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] 和我需要从数百个链接的地址开始 [../../../../../../Application%20Data/Microsoft/]。 链接的开头相同,但结尾不同。 你有什么好的建议吗?
该评论由网站上的主持人最小化
谢谢!!!! :lol: 这帮助很大。
该评论由网站上的主持人最小化
我将如何更改它以更新链接到工作簿中引用而不是外部网址的超链接?
该评论由网站上的主持人最小化
只是需要相同,尝试这些更改: Sub ReplaceHyperlinks() 'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String, xNew As String xTitleId = "CambiaLink" 'Set Ws = Application.ActiveSheet Set Wb = Application.ActiveWorkbook xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2) xNew = Application.InputBox("New text:", xTitleId, "", Type:=2) For Each Ws在 Wb.Worksheets 'Application.ScreenUpdating = False 对于每个 xHyperlink 在 Ws.Hyperlinks Debug.Print ("voy " & xHyperlink.SubAddress) xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew) Next Next Application.ScreenUpdating = True结束子
该评论由网站上的主持人最小化
毛里西奥-你太棒了! 谢谢! 此外,对于另一份报告,我需要它来仅更新指定选项卡上的链接,这可能吗?
该评论由网站上的主持人最小化
谢谢谢谢谢谢!!!!!!! 你让我在这里工作了 2 天
该评论由网站上的主持人最小化
有没有办法同时更改多个超链接“要显示的文本”?
该评论由网站上的主持人最小化
感谢您提供精彩的程序。 像魅力一样工作......“WLC”
该评论由网站上的主持人最小化
杰出的! 非常感谢!!!!
该评论由网站上的主持人最小化
嘿伙计们,我错过了什么,我在 Excel 2013 中收到 XTitleId 的“编译错误 - 未定义变量”:cry:
该评论由网站上的主持人最小化
不用担心我想通了并设置为字符串
该评论由网站上的主持人最小化
它帮了很多忙,非常感谢
该评论由网站上的主持人最小化
这是我遇到过的最有用的 Excel 文章。 我遇到过很多问题,文件中的超链接损坏,或者我想移动一些超链接文件的位置,而更新一直是一个主要问题。 我的 Excel 程序员没有简单的修复方法。 这完美无缺。 我非常感谢 - 谢谢!
该评论由网站上的主持人最小化
哇! 这为我节省了很多时间。 你真棒。 感谢分享!
该评论由网站上的主持人最小化
这太棒了。 你为我节省了很多时间。 今天。 感谢分享!
该评论由网站上的主持人最小化
非常感谢你开发这个! 我有一个用户在多个选项卡(至少数百个)上创建了一堆超链接,并且不知何故,他们在他的 c 驱动器上拥有指向他的 AppData\Roaming 文件夹而不是网络文件夹的文件路径。 我能够使用您的 VBA 脚本删除链接代码的那部分,现在一切正常。 为我们节省了大约一周的更新时间,我用了不到 2 分钟的时间来实施!
该评论由网站上的主持人最小化
惊人的。 在 excel 2013 上的工作就像一个魅力,不需要调整,不像我见过的类似修复这个问题。 非常感谢。 节省了大量的头痛和数小时的时间。
该评论由网站上的主持人最小化
我试图在包含其他文件夹引用的超链接上运行它,但它不起作用。 我将如何更改它以更新链接到硬盘驱动器内的文件夹而不是外部网址的超链接?
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0  产品特性
建议地点