Excel利用VBA代碼一鍵生成各個工作表超鏈接目錄

 

Sub 生成目錄()

    Dim wsht As Worksheet, k%, wshtname$

    Columns(1).ClearContents '清空A列數據,這樣就可以隨着工作表的變化，生成不同的工作表目錄

    Range("a1") = "超鏈接目錄" '第一個單元格寫入字符串

    k = 1 '賦予參數初值

    For Each wsht In Worksheets '找到當前工作簿的每個工作表

        wshtname = wsht.Name

        If wshtname <> ActiveSheet.Name Then

          k = k + 1

          ActiveSheet.Hyperlinks.Add anchor:=Cells(k, 1), Address:="", SubAddress:="'" & wshtname & "'!a1", TextToDisplay:=wshtname

        End If

    Next

End Sub