Excel宏-超链接常用脚本

增加超链接
##以下宏实现的功能是增加目录自2行起2列增加超链接标识
Sub addMLLink()
Dim I
For I = 2 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 2), Address:="", _
SubAddress:="'" & Worksheets(I).Name & "'!A1"
Next
End Sub
增加返回超链接
##以下宏实现的功能是增加自第二个Sheet的1行5列超链接标识
Sub addFHLink()
Dim I
For I = 2 To Worksheets.Count
Worksheets(I).Hyperlinks.Add Anchor:=Worksheets(I).Cells(1, 5), Address:="", _
SubAddress:="'" & "目录" & "'!A1"
Next
End Sub
删除超链接
##以下宏实现的功能是删除自第二个Sheet的5行1列超链接标识
Sub delLink()
Dim I
For I = 2 To Worksheets.Count
Worksheets(I).Cells(5, 1).Hyperlinks.Delete
Next
End Sub