如何在excel表格中批量修改超链接。

首先打开你的excel，单击工具--宏--安全性--选择低。然后李肆保存退出excel。
再次打开你的excel表格，右键单击你的表名--查看代码，然颤扰亏后输入：
Sub aa()
For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "C:\program files\资料", "E:\资料")
Next
End Sub

关闭VBE，回到Excel，按ALT+F8，弹茄神出宏窗口。选择 你的表名.aa ，点击执行即可。

'右击工作表标签，查乱碧看代码，把下面拿胡的代码消陪拦贴过去，按 F5 运行

Sub mUpdate()
Dim i%, Temp$
For i = 1 To ActiveSheet.Hyperlinks.Count
Temp = Hyperlinks(i).Address
Temp = Replace(Temp, "c:\program files", "e:")
Hyperlinks(i).Address = Temp
Next
End Sub

你的“C：\program files\资料” 文档下，做的超级链接是否有过回车?（下面有没有森判蓝色横线？）这很重此陆改要(关系悉灶到成败!)如果没有就可以的改为“E：\资料”中,不管个数有多少，似乎也不需要用什么VBA语言就可以解决的。

选择要替换区域，直接按CTRL+H，搜索：C:\program files\冲码资料唤判游和销
替换成：E:\资料
就行了。