如何在 Excel 中創建一個動態的工作表名稱列表？

如果您的工作簿中有多個工作表，並且您希望在工作簿的新工作表中創建所有工作表名稱的動態列表，該怎麼做呢？現在本教程介紹一些技巧，幫助您快速完成此任務。

使用「定義名稱」和公式創建動態工作表名稱列表

使用 VBA 程式碼創建動態工作表名稱列表

使用 Kutools for Excel 創建動態工作表名稱列表

使用 Kutools for Excel 顯示動態工作表名稱列表

使用「定義名稱」和公式創建動態工作表名稱列表

1. 在空白工作表中選擇一個單元格，這裡我選擇 A1，然後點擊 公式 > 定義名稱。請參閱截圖：

2. 接著在「新建名稱」對話框中，在 「名稱」文本框中輸入 Sheets（您可以根據需要更改），並在「引用位置」文本框中輸入以下公式 =SUBSTITUTE(GET.WORKBOOK(1),"["&GET.WORKBOOK(16)&"]","")。請參閱截圖：

3. 點擊「確定」。然後前往所選單元格（A1）並輸入以下公式 =INDEX(Sheets,ROWS($A$1:$A1)) （A1 是您輸入此公式的單元格，"Sheets" 是您在第 2 步中定義的名稱），然後向下拖動自動填充手柄直到 #REF! 出現。

提示：如果有工作表被刪除或新增，您需要返回到 A1 按下 Enter 鍵，然後再次拖動自動填充手柄。

使用 VBA 程式碼創建動態工作表名稱列表

如果您想創建一個可以連結到每個工作表的動態工作表名稱列表，您可以使用 VBA 程式碼。

1. 創建一個新的工作表並將其重命名為 Index。請參閱截圖：

2. 右鍵點擊 Index 的工作表名稱，從上下文菜單中選擇 查看代碼。請參閱截圖：

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. 點擊 Run 或 F5 運行 VBA，現在已創建了一個動態工作表名稱列表。

提示：

1. 當工作簿中的工作表被刪除或插入時，工作表名稱列表會自動改變。

2. 您可以點擊名稱列表中的工作表名稱以進入該工作表。

以上兩種方法可能不夠方便，如果您對新工具感興趣，可以嘗試接下來的兩種方法，這可能會讓此任務變得更加容易。

使用 Kutools for Excel 創建動態工作表名稱列表

如果您只想快速列出工作簿中的所有工作表名稱並將它們連結到原始工作表，您可以使用 Kutools for Excel 的 創建鏈接表 功能。

免費安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 Kutools Plus > 工作表 > 創建鏈接表。請參閱截圖：

2. 在「 創建鏈接表」對話框中：

 

(1) 在「類型」部分勾選您需要的索引樣式；
(2) 輸入數據以命名新的索引工作表於「創建鏈接表的名稱」文本框中；
(3) 在「 工作簿中插入的位置」列表中指定添加索引工作表的位置；
(4) 如果您想以單一列表顯示工作表名稱，則在「跨越的行數」列表中選擇 1 行。

3. 點擊「確定」。現在您可以看到工作表名稱已被列出。

提示：

1. 您可以點擊工作表名稱以快速切換到其原始工作表。

2. 列表或工作表名稱不會隨著工作表的插入或刪除而動態改變。

3. 實際上，您還可以創建一個按鈕列表來連接到相應的工作表，只需在對話框中勾選 創建按鈕和巨集 即可。請參閱截圖：

點擊這裡了解更多關於 創建鏈接表 的信息。

創建可點擊的工作表名稱列表

使用 Kutools for Excel 顯示動態工作表名稱列表

使用 Kutools for Excel，您還可以使用 導航 功能在窗格中顯示可連結的工作表名稱。

免費安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 Kutools > 導航。點擊 工作簿與工作表 以顯示工作簿和工作表，您可以選擇一個工作簿，然後其工作表將顯示在 導航 窗格中。請參閱截圖：
   

提示：

當有工作表被刪除或新增時，您可以點擊 刷新按鈕 在 導航窗格中刷新工作表名稱。

點擊這裡了解更多關於 導航 的信息。

導航窗格 -- 列表工作表