如何在Excel中创建包含所有电子表格选项卡名称和超链接的目录

如果您正在处理一个包含许多工作表的庞大工作簿，并且希望采用一种井然有序的方法来浏览这些工作表，那么目录可能是一个有用的工具。每个选项卡名称都可以制作成超链接，以便您可以轻松地单击一下即可导航到特定工作表。本教程将逐步向您展示如何创建一个 Excel 目录，该目录会在您添加或删除工作表时自动更新。我们还将演示如何创建直接将您带到相应工作表的超链接。

无论您是初学者还是有一些 Excel 使用经验，本教程都将为您提供有效管理电子表格所需的知识和技能。因此，让我们深入了解如何为 Excel 中所有电子表格选项卡名称创建包含超链接的目录！

创建包含所有电子表格选项卡名称和超链接的目录

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们来看一个简单的过程，学习如何在 Excel 中为所有电子表格选项卡名称创建包含超链接的目录。

步骤 1

考虑一个包含多个工作表的 Excel 工作簿。

首先使用 Alt + F11 打开 VBA 应用程序。

步骤 2

然后单击“插入”，选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub CreateTableofcontents()
   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 以完成任务。然后您将看到目录已创建。

这就是如何在 Excel 中为所有电子表格选项卡名称创建包含超链接的目录的方法。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中为所有电子表格选项卡名称创建包含超链接的目录，以突出显示特定数据集。

更新于：2023年7月12日

109 次浏览

启动您的 职业生涯

完成课程获得认证

开始
广告