Excel VBA之给Excel工作簿中的工作表创建目录并添加超链接

当一个工作簿中有很多工作表的时候，需要创建一个目录来进行管理。如果手动添加比较麻烦，这里可以使用VBA来进行添加，并且加上超链接，直接跳转到对应的工作表中。

如图，现在一个工作簿中有几个工作表，要来创建目录。

现在使用以下代码来实现：

Sub CreateMenu()
Sheets.Add(Before:=Sheets(1)).Name = "目录"  '新建一个目录工作表
Worksheets("目录").Activate
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name  '将其他工作表名称分别填入单元格中
        If i <> 1 Then
            Cells(i, 1).Select
                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Cells(i, 1).Value
                '创建超链接
        End If
    Next i
End Sub

运行以后会新建一个名为“目录”的工作表，位置排在最前面，然后在里面将全部工作表名称列出来。除了新建的目录工作表以外，其他单元格均添加对应的工作表超链接，点击就可以直接跳转到对应工作表的A1单元格了。