如何批量替换excel中的链接

Question

如题所述

Answer 1

1.如图所示，新建一个Excel，输入数据；
↓
2.选择“插入”选项卡，点击“链接”选项的“超链接”插入链接文档。

3.当仅移动文件或是插入文档的位置时，会弹出“无法打开指定的文件”的提示框，这时就需要修改链接地址。

4.选择“开发工具”选项卡，点击“代码”选项的“宏安全性”；
↓
5.弹出“信任中心”窗口；
↓
6.在“信任中心”窗口中，选择“宏设置”选项卡→点击“宏设置”选项中的“启用所有宏”单选项→点击“确定”。

7.回到Excel中，选择“开发工具”选项卡，点击“控件”选项的“查看代码”；
↓
8.弹出Excel的VB窗口“Microsoft Visual Basic - 新建 Microsoft Office Excel 工作表”；
↓
9.在VB窗口中，选择需修改超链接的Sheet页；
↓
10.在Sheet1（代码）窗口中，输入下列代码：
Sub ChangeHyperlink()
For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "新建文件夹\", "F:\ZHOUMIN\操 作文档\Excel\新建文件夹\")
Next
End Sub
说明：如图所示，代码中，第一个引号的内容为超链接的原始路径，第二个引号的内容为现在的路径。
↓
关闭VB窗口。

11.回到Excel中，选择“开发工具”选项卡，点击“代码”选项的“宏”；
↓
12.弹出“宏”设置窗口；
↓
13.在宏名中输入“Sheet名.方法名”，如“Sheet1.ChangeHyperlink”；
↓
14.点击“执行”。

15.关闭“宏”设置窗口，回到Excel中，随意打开一个超链接，能成功打开链接文档，则超链接修改成功。

16.因为设置了宏，所有在保存或关闭Excel的时候，会弹出隐私问题警告提示框，如图所示；
↓
17.为了让提示框不在弹出，可以进入“开发工具”选项卡，点击“代码”选项的“宏”，选中宏名，点击删除即可。
↓
18.关闭Excel，重新打开，就不会再弹出提示框了。

Answer 2

选中超链接--复制--新建一个新的EXCEL或者本EXCEL中空白位置都可以。

--右击“选择性粘贴”--数值（或者）。则所有超链接格式全部被取消。再选定原来位置的超链接（删除），复制这些已经去除了格式的文本，粘贴即可。本回答被网友采纳