让工作效率飞起来，一键生成带有超级链接的工作表目录

高一下工作效率，有兴趣的朋友可以收藏哦。

直接步入正题吧！

复制一下代码，跟着视频操作一下，动作简单高效！

Sub catalog()

    Dim sht As Worksheet, i As Long, 工作表名 As String

    Cells.ClearContents   '清空工作表中的数据

    Cells(1, 1) = '工作表目录'

   '第一个单元格写入字符串'工作表目录'

    i = 1

   '将i的初值设置为1.

    For Each sht In Worksheets

       '循环当前工作簿的每个工作表

        工作表名 = sht.Name

        If 工作表名 <> ActiveSheet.Name Then

       '如果sht的名称不是当前工作表的名称则开始在当前工作表建立超链接

            i = i 1

           '累加i

           ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:='', SubAddress:=''' & 工作表名 & ''!a1', TextToDisplay:=工作表名

           '建超链接

        End If

    Next

End Sub