Excel关于超级链接的宏命令
Sub 替换超级链接地址()
Dim h
Dim str1$
str1 = "D:/Personal/My Documents/"
For Each h In Worksheets(1).Hyperlinks
If InStr(h.Name, str1) <> 0 Then h.Address = "" & Replace(h.Name, str1, "")
Next
End Sub
Sub 取消所有超级链接()
ActiveSheet.Hyperlinks.Delete
End Sub