将大量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
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
