电子表格EXCEL里的超级连接失效

1.EXCEL里的超级连接失效

可能上一个提问人也是你。

在该Excel中同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码： Sub test() Dim cell As Range For Each cell In Range("A1:A2000") cell.Hyperlinks(1).Address = Replace(cell.Hyperlinks(1).Address, "D:\Tuev", "C:\test") Next cell End Sub 把A1:A2000改为你实际有超链接的单元格区域，把D:\Tuev改为原来链接中路径的前几位，C:\test改为现在实际的。（比如，原来的地址都在D:\Test里，现在新系统在E:\aa\Test，后面虽然各不相同） 然后在此窗口中按F5运行此宏，搞定。