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