如何在Excel中為所有工作表標籤名稱創建帶有超連結的目錄？

隨著越來越多的工作表被創建，Excel工作簿變得相當龐大。工作表越多，就越難以總覽這些工作表。因此，您需要一個目錄來快速導航Excel中的工作表。本文將向您展示實現這一目標的方法。

通過VBA代碼創建目錄
使用Kutools for Excel輕鬆創建目錄

通過VBA代碼創建目錄

以下VBA代碼可以幫助您為Excel中的所有工作表創建帶有超連結的目錄。請按照以下步驟操作。

1. 按下 Alt + F11 鍵打開Microsoft Visual Basic for Applications窗口。

2. 在Microsoft Visual Basic for Applications窗口中，點擊 插入 > 模組，然後將以下VBA代碼複製到代碼窗口中。

VBA代碼：為所有工作表創建目錄

Sub CreateTableofcontents()
'updateby Extendoffice 20180413
    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("Table of contents").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Table of contents"
    I = 1
    Cells(1, 1).Value = "Table of contents"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Table of contents" 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 鍵或點擊運行按鈕來執行代碼。

然後，在所有工作表前面創建了一個目錄工作表，裡面列出了所有工作表名稱。您可以通過點擊目錄中的工作表名稱來導航到任何工作表。請參見截圖：

使用Kutools for Excel輕鬆創建目錄

Kutools for Excel 的 創建鏈接表 功能可以幫助您快速在當前工作簿中創建目錄。請按照以下步驟操作。

1. 在需要創建目錄的工作簿中，點擊 Kutools Plus > 工作表 > 創建鏈接表。請參見截圖：

2. 在 創建鏈接表 對話框中，您需要進行以下操作：

然後，創建了一個如下截圖所示的目錄工作表。您可以通過點擊目錄中的工作表名稱來導航到任何工作表。

如果您在 選擇索引樣式 部分選擇了 創建按鈕和巨集 選項，您將獲得如下截圖所示的目錄。

相關文章：

• 如何在Excel的單元格中引用標籤名稱？
• 如何在Excel中匹配單元格值與標籤名稱或反之亦然？
• 如何在Excel中根據下拉列表的選定值打開特定工作表？