EXCEL VBA中建立工作表目录索引

如何在Excel表中自动建立工作表索引，即建立目录。打开目录自动索引打开对应的工作表。如下图：

详细代码：

Option Compare Database

Sub 生成目录链接2()

    Dim i As Long

    For i = 1 To Sheets.Count

        Sheets(i).Columns(1).Clear

        Sheets(i).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name

    Next

    For j = 1 To Sheets.Count - 1

        Sheets(j).Columns(1).Copy Sheets(j + 1).Cells(1, 1)

    Next

    For k = 1 To Sheets.Count

        Sheets(k).Cells(1, 1).Font.Color = 255

        ActiveWindow.Zoom = 100 '工作表串口视图100%，防止相同的字号大小看起来不一样大

        Columns.AutoFit '每个工作表中的列根据输入的内容自动调整列宽

        Rows.AutoFit '每个工作表中的列根据输入的内容自动调整行高

    Next

    ThisWorkbook.Save

End Sub