如何在Excel中创建工作表名称的动态列表？

如果一个工作簿中有多个工作表，并且要在该工作簿的新工作表中创建所有工作表名称的动态列表，该怎么办？ 现在，本教程介绍了一些技巧，可以在Excel中快速完成此任务。

使用定义名称和公式创建工作表名称的动态列表

使用VBA代码创建工作表名称的动态列表

使用 Kutools for Excel 创建工作表名称的动态列表

使用 Kutools for Excel 显示工作表名称的动态列表

使用定义名称和公式创建工作表名称的动态列表

1.在空白工作表中选择一个单元格，在这里我选择A1，然后单击 公式 > 定义名称。 看截图：

2.然后在 新名字 对话框，输入 表 进入 名称 文本框（您可以根据需要进行更改），然后键入此公式 = SUBSTITUTE（GET.WORKBOOK（1），“ [”＆GET.WORKBOOK（16）＆“]”，“”） 进入“引用”文本框。 看截图：

3。 点击 OK。 转到所选单元格（A1）并键入此公式 = INDEX（Sheets，ROWS（$ A $ 1：$ A1）） （A1是您键入此公式的单元格，“ Sheets”是您在第2步中定义的名称），然后向下拖动自动填充手柄，直到#REF！ 出现。

Tips:：如果删除或添加了工作表，则需要转到A1并按Enter键，然后再次拉动自动填充手柄。

使用VBA代码创建工作表名称的动态列表

如果要创建可以链接到每个工作表的工作表名称的动态列表，则可以使用VBA代码。

1.创建一个新的工作表，并将其重命名为Index。 看截图：

2.右键单击索引的工作表名称，选择 查看代码 从上下文菜单中。 看截图：

3.在弹出的窗口中，将下面的VBA代码复制并粘贴到其中。

VBA：创建工作表名称的动态列表。

Private Sub Worksheet_Activate()
	'Updateby20150305
	Dim xSheet As Worksheet
	Dim xRow As Integer
	Dim calcState As Long
	Dim scrUpdateState As Long
	Application.ScreenUpdating = False
	xRow                       = 1
	With Me
		.Columns(1).ClearContents
		.Cells(1, 1) = "INDEX"
		.Cells(1, 1).Name = "Index"
	End With
	For Each xSheet In Application.Worksheets
		If xSheet.Name <> Me.Name Then
			xRow                     = xRow + 1
			With xSheet
				.Range("A1").Name = "Start_" & xSheet.Index
				.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
				SubAddress:             = "Index", TextToDisplay: = "Back to Index"
			End With
			Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
			SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
		End If
	Next
	Application.ScreenUpdating = True
End Sub

4。 点击 运行 or F5 要运行VBA，现在将创建工作表名称的动态列表。

提示：

1.当删除或插入工作簿的工作表时，工作表名称列表将自动更改。

2.您可以单击名称列表的工作表名称以转到工作表。

上面的两种方法不够方便，如果您对新实用程序感兴趣，则可以使用下面的两种方法，这可能会使此任务更加容易。

使用 Kutools for Excel 创建工作表名称的动态列表

 如果您只想快速列出工作簿的所有工作表名称并将它们链接到原始工作表，则可以使用 Kutools for Excel“ 创建工作表名称列表.

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

1。 点击 Kutools 加 > 工作表 > 创建工作表名称列表。 看截图：

2.在 创建工作表名称列表 对话：

 

（1）检查您需要的索引样式 工作表索引样式 部分;
（2）通过将数据键入到新索引表中 指定图纸索引的图纸名称 文本框;
（3）指定将添加的索引表放置在目录中的位置。 将工作表索引插入 清单
（4）如果要在单个列表中显示工作表名称，请在 显示工作表索引到 名单。

3。 点击 Ok。 现在您可以看到工作表名称已列出。

提示：

1.您可以单击工作表名称以快速切换到其原始工作表。

2.列表或工作表名称不能随插入或删除工作表而动态更改。

3.实际上，您还可以创建一个按钮列表来链接相关的工作表，只需要检查一下即可 包含按钮和宏 在对话框中。 参见screeshshot：

单击此处以了解有关创建图纸名称列表的更多信息。

  创建工作表名称的可点击列表