VBA建立超连接内容表

如下代码实如今工做薄开头插入一张新的工做表，内容为每一个工做表的超连接。

        工程->插入->模块

Sub CreateLink()
Dim i As Integer
Sheets.Add Before:=Sheets(1)
For i = 2 To Worksheets.Count
 ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(i, 1), _
Address:="", _
SubAddress:="'" & Worksheets(i).Name & "'!A1", _
TextToDisplay:=Worksheets(i).Name
Next i
End Sub

版权声明：本文为博主原创文章，未经博主容许不得转载。