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

版權聲明：本文爲博主原創文章，未經博主容許不得轉載。