修改Excel中

Question

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

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

• F：\采购\合同\阿尔科... XXX ...

• \ NSH-HDRIVES1 \合同\阿尔科... XXX ...

我有数百条带有文档链接的行需要＆＃34; \ NSH-HDRIVES1＆＃34;替换为＆＃34; F：＆＃34;。

是否有某种VBA宏可以让我这样做？我现在几乎没有经验和时间学习VBA宏，所以任何帮助都会非常感激。请注意每个链接不同，并转到我们的F：Drive中的不同文件夹，我只需要更改前缀。

感谢并抱歉任何重复。

Answer 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