一键生成工作表超链接目录

Sub 新建工作表超链接目录()
    '----------------------------------------------------
     '自定义各数据类型
    Dim i, j As Integer
    With ThisWorkbook
        For i = 1 To .Sheets.Count          '循环每一个工作表
            If .Sheets(i).Name <> "目录" Then
                j = j + 1
                .Sheets("目录").Cells(j + 3, 1) = .Sheets(i).Name '将工作表写入i行1列
                .Sheets("目录").Hyperlinks.Add Anchor:=.Sheets("目录").Cells(j + 3, 1).Offset(0, 1), Address:="", SubAddress:=.Sheets(i).Name & "!A1", TextToDisplay:="单击跳转"
                .Sheets(i).Hyperlinks.Add Anchor:=.Sheets(i).Cells(1, 1), Address:="", SubAddress:=.Sheets("目录").Name & "!A1", TextToDisplay:="返回目录"
            End If
        Next
    End With
    ThisWorkbook.Save
    MsgBox "建立目录完成"

End Sub

1：工作薄有多个表时，建立工作表可跳转目录

2：自主修改部分代码做成小的应用

3：目录工作表放在首个表，在首表和分表之间单击跳转

源码视频演示