修改 Excel 中的超链接范围答案

【问题标题】：Modify range of Hyperlinks in Excel修改 Excel 中的超链接范围
【发布时间】：2017-01-07 08:45:23
【问题描述】：

因此，我已将电子表格发送给我们的几位员工，要求更新某些字段/列。我有一个文档链接字段（G 列），它将他们链接到 F: Drive 中的一个文件夹，他们可以使用它来帮助填充必要的字段。

我希望他们完成的电子表格也在这个 F:Drive 中。但是，我注意到每个文档链接都不再起作用，当我检查编辑超链接下的链接时，我注意到而不是所需的“*F:\Procurement ...”我有我的主驱动器“+\NSH-HDRIVES1 ...”作为标题，

F:\Procurement\Contracts\Alco...xxx...
\NSH-HDRIVES1\Contracts\Alco...xxx...

我有数百行文档链接需要将“\NSH-HDRIVES1”替换为“F:”。

是否有某种 VBA 宏可以让我这样做？在这一点上，我没有多少经验和时间来学习 VBA 宏，所以任何帮助都将不胜感激。请注意，每个链接都是不同的，并且会转到我们 F:Drive 中的不同文件夹，我只需要更改前缀即可。

感谢和抱歉任何重复。

【问题讨论】：

标签： vba excel hyperlink macros

【解决方案1】：

以下代码可能会有所帮助，但它被设置为仅适用于 ActiveSheet。如果您的超链接位于多个工作簿和多个工作表中，您将需要遍历它们。

For Each h In ActiveSheet.Hyperlinks
    h.Address = Replace(h.Address, "\NSH-HDRIVES1\", "F:\Procurement\")
    h.TextToDisplay = Replace(h.TextToDisplay, "\NSH-HDRIVES1\", "F:\Procurement\")
Next

【讨论】：

@Thomas2016 你可能也需要添加这个h.TextToDisplay = Replace(h.TextToDisplay, "\NSH-HDRIVES1\", "F:\Procurement\")
太棒了，我有一个可以分割的母版，所以现在一切都修好了。