如何從工作簿中創建所有工作表名稱的列表？

如何從工作簿中創建所有工作表名稱的列表？

假設您有一個包含多個工作表的工作簿，現在您想列出當前工作簿中的所有工作表名稱，是否有任何快速方法可以在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 現在！

更多相關文章：