开发工具–>VB编辑器–>视图–>代码窗口–>输入如下代码–>点击运行
Sub TiHuanChaoLianJie()
For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "原路径", "替换的路径")
Next
End Sub
开发工具–>VB编辑器–>视图–>代码窗口–>输入如下代码–>点击运行
Sub TiHuanChaoLianJie()
For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "原路径", "替换的路径")
Next
End Sub