如何快速建立活頁簿中所有工作表名稱的清單？

假設您有一個包含多張工作表的活頁簿，並希望自動列出所有工作表名稱，且每個名稱都附帶可點擊的超連結，讓您快速跳轉至對應的工作表。本教學將為您介紹幾種快速又有效的方法，輕鬆在 Excel 中產生工作表名稱清單。

使用公式動態取得活頁簿中所有工作表名稱的清單

使用 Kutools for Excel 取得活頁簿中所有工作表名稱的清單

使用 VBA 程式碼取得活頁簿中所有工作表名稱的清單

使用公式動態取得活頁簿中所有工作表名稱的清單

在 Excel 中，您可以先定義一個儲存格名稱，再套用公式從當前工作簿列出所有工作表名稱，請依照下列步驟操作：

1. 按一下「公式」>「名稱管理器」，詳情請參閱截圖：

2. 在「名稱管理器」對話方塊中，點擊「新增」按鈕（請參閱截圖）：

3. 在彈出的「新建名稱」對話方塊中，於「名稱」文字方塊輸入名稱，並將下方公式複製至「參照」文字方塊（請參閱截圖）：

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

4. 接著按一下「確定」>「關閉」以關閉對話方塊。現在，請切換至您希望列出所有工作表名稱的工作表，並在空白儲存格中輸入下列公式：

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

注意：上述公式中的「Sheetnames」是您於步驟 3 中所建立的儲存格名稱。

5. 接著向下拖曳填滿控點，直到出現空白儲存格為止。此時，目前工作簿的所有工作表名稱就會如以下截圖所示完整列出：

6. 若想為每個工作表建立超連結，請使用下方公式：

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

注意：上述公式中，「A2」為包含工作表名稱的儲存格，而「A1」則是您點擊超連結後希望定位到的儲存格。例如，當您點擊超連結文字時，系統將自動跳轉至該工作表的 A1 儲存格。

7. 現在，只要點擊超連結文字，即可立即跳轉至對應的工作表，請參閱下方示範：

使用 Kutools for Excel 取得活頁簿中所有工作表名稱的清單

透過第三方增益集「Kutools for Excel」的「建立連結工作表清單」功能，只需一鍵，即可快速生成包含所有工作表名稱的清單，並為每個工作表自動加入超連結。

1. 按一下「KUTOOLS PLUS」>「工作表」>「創建鏈接表」，請參閱下方截圖：

2. 在「建立連結資料表」對話方塊中，請進行下列設定：

（1.）選擇您喜愛的「類型」，即可建立包含超連結或巨集按鈕的工作表名稱。 （2.）輸入工作表索引所對應的工作表名稱。 （3.）指定工作表索引的位置。 （4.）指定您希望在新工作表中使用多少欄來顯示工作表名稱。

3. 完成設定後，按一下「確定」，所有工作表名稱將以超連結形式列於當前工作簿的新工作表中。請參閱截圖：

含超連結的工作表名稱	含巨集按鈕的工作表名稱

使用 VBA 程式碼取得活頁簿中所有工作表名稱的清單

1. 同時按住「Alt」+「F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 按一下「插入」>「模組」，並將下列巨集貼上至「模組」視窗中。

VBA：在新工作表中列出所有工作表名稱並加入超連結：

Sub CreateIndex()
'updateby Extendoffice
    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」鍵執行此巨集，即可在新建立的「Index」工作表中，看到目前工作簿所有工作表的名稱清單，並附上可直接導航至各工作表的超連結。請參閱下方截圖：

相關文章