excel 超链接批量自动全匹配和超级链接批量修改

将大量excel内容自动匹配文件夹下的文件。

源代码
Sub 超链接()
For Each Rng In Selection
ActiveSheet.Hyperlinks.Add anchor:=Rng, Address:="新建文件夹\" & Rng & ".log"
Next
End Sub
运行保存

直接修改超链接
Sub ChangeHyperlink()
For Each c In ActiveSheet.Hyperlinks
c.Address = Replace(c.Address, "新建文件夹\", "新建文件夹22\")
Next
End Sub

转载于:https://blog.51cto.com/yangeinstein/2298878