如何从工作簿中创建所有工作表名称的列表？

如何从工作簿中创建所有工作表名称的列表？

假设您有一个包含多个工作表的工作簿，现在您想列出当前工作簿中的所有工作表名称，是否有任何快速方法可以在Excel中创建这些工作表名称的列表而不用一一键入？ 本教程提供有关如何在Excel中列出工作表名称的说明。

使用公式动态获取工作簿中所有工作表名称的列表 使用VBA代码从工作簿中获取所有工作表名称的列表 从具有有用功能的工作簿中获取所有工作表名称的列表 使用公式动态获取工作簿中所有工作表名称的列表

在Excel中，您可以定义范围名称，然后应用公式列出当前工作簿中的所有工作表名称，请执行以下步骤：

1。 点击 公式 > 名称管理员，请参见屏幕截图：

2。 在 名称管理员 对话框，单击 全新 按钮，请参见屏幕截图：

3。 在弹出 新名字 对话框中，在其中指定一个名称 Name 文本框，然后将以下公式复制到 指 文本框，请参见屏幕截图：

4。 然后点击 OK > 关闭 要关闭对话框，现在，请转到要列出所有工作表名称的工作表，然后在空白单元格中输入以下公式：

备注：在以上公式中， 工作表名称 是您在步骤3中建立的范围名称。

5。 当显示空白单元格时，然后将填充手柄向下拖动到这些单元格，现在，当前工作簿的所有工作表名称都已列出，如下图所示：

6。 如果要为每个工作表创建超链接，请使用以下公式：

备注：在以上公式中， A2 是包含工作表名称的单元格，并且 A1 是您想要活动单元格所在的单元格。 例如，如果单击超链接文本，它将找到工作表的单元格A1。

7。 现在，当您单击超链接文本时，它将带您到该工作表，请参见下面的演示：

使用VBA代码从工作簿中获取所有工作表名称的列表

下面的两个VBA代码可以帮助您在新工作表中列出所有工作表名称。 请这样做：

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

2. 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。

VBA：在新工作表中列出所有带有超链接的工作表名称：

Sub CreateIndex（）updateby Extendoffice Dim xAlerts作为布尔Dim I长于Dim xShtIndex作为工作表Dim xSht作为变量xAlerts = Application.DisplayAlerts Application.DisplayAlerts = False错误恢复上一张纸（“ Index”）。Delete On Error转到0设置xShtIndex = Sheets.Add（Sheets （1））xShtIndex.Name =“ Index” I = 1个单元格（1，1）.Value =“ INDEX”对于ThisWorkbook.Sheets如果xSht.Name <>“ Index”然后I = I + 1 xShtIndex。 Hyperlinks.Add Cells（I，1），“”，“”＆xSht.Name＆“！A1”，，xSht.Name如果下一个Application.DisplayAlerts = xAlerts End Sub

2. 然后按 F5 键来运行代码，并且活动工作簿中的所有工作表名称都已列在名为 Index，工作表名称也链接到每个工作表，请参见屏幕截图：

从具有有用功能的工作簿中获取所有工作表名称的列表

随着 创建工作表名称列表 第三方加载项的实用程序 Kutools for Excel，您只需单击即可创建工作表名称列表，并使用超链接链接到每个工作表。

安装后 Kutools for Excel，请这样做：

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

2。 在 创建工作表名称列表 对话框中，请指定以下设置：

（1.）选择 工作表索引样式 您可以使用超链接或宏按钮创建工作表名称。

（2.）输入图纸索引的工作表名称。

（3.）指定工作表索引的位置。

（4.）指定要在新工作表中使用多少列来显示工作表名称。

点击下载并免费试用 Kutools for Excel 现在！

3. 完成设置后，然后单击 OK。 在当前工作簿的新工作表中，所有工作表名称均已列出，并带有链接。 看截图：

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

点击下载并免费试用 Kutools for Excel 现在！

更多相关文章：