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

在我们的日常工作中，工作簿文件中可能有多个工作表，您如何在工作表中创建工作表选项卡的索引并为每个选项卡建立超链接？ 本文中，我将讨论在Excel中处理此任务的一些快速技巧。

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

使用创建Kutools for Excel的图纸名称列表创建图纸超链接索引

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

---

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

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

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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 执行此代码的关键，以及名为“刻度”会插入到所有工作表（包括具有超链接的工作表名称）之前的工作簿中。 看截图：

---

使用创建Kutools for Excel的图纸名称列表创建图纸超链接索引

除了上面的VBA代码，您还可以使用一个有用的工具来完成此工作- Kutools for Excel，其 创建工作表名称列表，您可以使用超链接或按钮快速创建工作表名称的索引。

Kutools for Excel : 带有300多个便捷的Excel加载项，可以在30天内免费试用.

前往下载 30天免费试用购买 贝宝/ MyCommerce

安装后 Kutools for Excel，请执行以下步骤：

1。 点击 Kutools 加 > 工作表 > 创建工作表名称列表，请参见屏幕截图：

2。 在 创建工作表名称列表 对话框，请执行以下选项：

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

3. 完成设置后，单击 Ok 按钮，具有工作表名称索引的新工作表已创建，如下所示：

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

单击以了解有关此“创建图纸名称列表”功能的更多详细信息……

立即免费下载Kutools for Excel

---

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

Kutools for Excel“ 旅游导航 实用程序还可以帮助您在左窗格中列出所有工作表名称，并且您可以单击任何工作表名称以转到工作表。

安装后 Kutools for Excel，请执行以下操作：

1。 点击 库工具 > 旅游导航 ，请参见屏幕截图：

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

	1。 所有打开的工作簿都在此处列出。
	2。 当前工作簿中的可见工作表列在下面 列表框，可以从窗格中单击以转到特定的工作表。

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

立即免费下载Kutools for Excel