如何在工作簿中创建工作表的超链接索引？

在日常工作中，一个工作簿文件中可能包含多个工作表。如何在一个工作表中创建工作表标签的索引，并为每个标签添加超链接呢？本文将介绍一些在Excel中处理此任务的快速技巧。

使用VBA代码创建工作表的超链接索引

使用Kutools for Excel的“创建链接表”功能创建工作表的超链接索引

使用Kutools for Excel的导航功能创建工作表的超链接索引

使用VBA代码创建工作表的超链接索引

以下VBA代码可以帮助您在其他工作表之前的新工作表中创建工作表名称的索引。请按照以下步骤操作：

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：创建工作表的超链接索引

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. 然后按F5键执行此代码，一个名为“Index”的新工作表将被插入到所有工作表之前，其中包含带有超链接的工作表名称。参见截图：

使用Kutools for Excel的“创建链接表”功能创建工作表的超链接索引

除了上述VBA代码外，您还可以使用一个实用工具——Kutools for Excel来完成此任务。通过其“创建链接表”功能，您可以快速创建带有超链接或按钮的工作表名称索引。

安装Kutools for Excel后，请按照以下步骤操作：

1. 点击Kutools Plus > 工作表 > 创建链接表，参见截图：

2. 在“创建链接表”对话框中，请进行以下设置：

• 选择一种索引样式，您可以为工作表名称索引使用 超链接或按钮；
• 为列出工作表索引的工作表指定名称；
• 指定放置工作表索引的位置；
• 选择要放置工作表名称列表的列数。

3. 完成设置后，点击确定按钮，一个新的包含工作表名称索引的工作表已创建如下：

带超链接的工作表名称	使用按钮的工作表名称

单击以了解更多关于此“创建链接表”功能的详细信息…

使用Kutools for Excel的导航功能创建工作表的超链接索引

Kutools for Excel的导航工具还可以帮助您在左侧窗格中列出所有工作表名称，您可以点击任意工作表名称跳转至该工作表。

安装 Kutools for Excel后，请按照以下步骤操作：

1. 点击Kutools > 导航，参见截图：

2. 然后点击工作簿与工作表图标以展开导航窗格：

	1. 所有打开的工作簿都列在这里。
	2. 当前工作簿中的可见工作表列在下面的列表框中，您可以通过点击窗格中的工作表名称跳转到特定的工作表。

单击以了解更多关于此导航窗格的信息…