Wendy有一个Excel工作表，其中包含1200多个TIFF文件的超链接。 （这些是超链接，而不是常规链接。）Excel出现故障，必须关闭，因此Emily使用自动保存的文件来恢复以前保存的文件。现在，所有先前可用的超链接均不起作用。她在共享的网络驱动器上具有指向图像的超链接，但是AutoSave更改了超链接以引用C：驱动器。她想知道是否有一种简单的方法可以将它们重新安装到共享网络驱动器上。

乍一看，您似乎可以使用Excel的常规“查找和替换”功能来查找硬盘驱动器名称（如在文件：// c：中）并将其替换为网络驱动器（如在文件：// shareddrive中）。问题在于该方法仅解决了部分问题，它仅更改了超链接的显示部分，而不更改基础超链接本身。获得超链接本身的唯一方法是使用宏。

假设所有需要更改的超链接都在同一工作表上，则可以使用以下宏：

Sub FixHyperlinks()

Dim h As Hyperlink     Dim sOld As String     Dim sNew As String

sOld = "c:\"      sNew = "S:\Network\"

For Each h In ActiveSheet.Hyperlinks         h.Address = Replace(h.Address, sOld, sNew)

Next h End Sub

您需要做的就是更改分配给sOld和sNew变量的值。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（8624）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

更改大量超链接。