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

訪問和管理工作表名稱是一項重要技能，因為Excel是進行資料分析和組織的強大工具。無論您的Excel熟練程度如何，本教程都將逐步引導您完成該過程。您是否曾經難以記住大型Excel工作簿中眾多工作表的所有名稱？也許您需要參考特定工作表但忘記了其名稱，或者您想建立目錄以方便訪問。在本文中，我們將研究一種快速有效的方法來建立Excel檔案中所有工作表名稱的列表。

在本教程結束時，您將瞭解如何使用內建Excel函式和Visual Basic for Applications (VBA)來自動提取和顯示所有工作表名稱。無論您是多麼經驗豐富的Excel使用者，都知道如何建立所有工作表標題的列表，都能提高您的工作效率，使您的Excel專案更有條理。因此，讓我們開始學習這項關鍵技能，以充分發揮Excel的潛力！

從工作簿中建立所有工作表名稱的列表

在這裡，我們將首先建立一個VBA模組，然後執行它來完成任務。讓我們來看一個簡單的過程，瞭解如何在Excel中從工作簿中建立所有工作表名稱的列表。

步驟1

考慮任何包含多個工作表的Excel工作簿。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。

步驟2

然後單擊“插入”，選擇“模組”，然後將以下程式碼複製到文字框中。

插入 > 模組 > 複製。

示例

Sub CreateIndex()
    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