如何从工作簿中创建所有工作表名称的列表？-英雄云拓展知识分享

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

使用公式动态获得工作簿中所有工作表名称的列表

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

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

使用公式动态获得工作簿中所有工作表名称的列表

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

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

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

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

=GET.WORKBOOK(1)&T(NOW())

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

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

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

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

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

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

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

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

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

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

安装后 Excel的tool，请这样做：

1. 点击 tool 加 > 下载学习单 > 创建工作表名称列表，请参见屏幕截图：

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

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

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

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

2。 点击 插入 > 模块，然后将以下宏粘贴到 模块 窗口。

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

Sub CreateIndex()
'
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 键运行该巨集。 现在活开工作簿中的所有工作表名称都已列出到名为「索引」的新工作表中，工作表名称也连结到每一个工作表，请参见萤幕截图：

相干文章