如何在Excel中为所有工作表标签名称创建带超链接的目录？

随着越来越多的工作表被创建，Excel工作簿变得非常庞大。工作表越多，就越难对工作表保持整体概览。因此，您需要一个目录来快速导航Excel中的工作表。本文将向您展示实现这一目标的方法。

通过VBA代码创建目录
使用Kutools for Excel轻松创建目录

通过VBA代码创建目录

以下VBA代码可以帮助您为Excel中的所有工作表创建带有超链接的目录。请按照以下步骤操作。

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

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块，然后将以下VBA代码复制到代码窗口中。

VBA代码：为所有工作表创建目录

Sub CreateTableofcontents()
'updateby Extendoffice 20180413
    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("Table of contents").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Table of contents"
    I = 1
    Cells(1, 1).Value = "Table of contents"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Table of contents" 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轻松创建目录

Kutools for Excel 的 创建链接表 功能可以帮助您快速在当前工作簿中创建目录。请按照以下步骤操作。

1. 在需要创建目录的工作簿中，点击 Kutools Plus > 工作表 > 创建链接表。请参见截图：

2. 在 创建链接表 对话框中，您需要执行以下操作：

然后会创建一个如下截图所示的目录工作表。您可以通过点击目录中的工作表名称导航到任何工作表。

如果您在 选择索引样式 部分选择了 创建按钮和宏 选项，您将获得如下截图所示的目录。

相关文章：

• 如何在Excel单元格中引用标签名称？
• 如何在Excel中匹配单元格值与标签名称或反之亦然？
• 如何在Excel中通过组合框的选定值打开特定工作表？