如何列出 Excel 中所有的工作表名稱？

作者Siluvia修改日期2024-10-10

若要列出活頁簿中所有的表格名稱，本文中的方法可協助您輕鬆達成。

在名稱方塊中列出所有表格名稱
 在編輯欄中列出所有表格名稱
 使用 VBA 程式碼列出所有表格名稱

在名稱方塊中列出所有表格名稱

所有工作表名稱預設都會顯示在名稱框中。

點擊左上角名稱方塊的下拉清單箭頭，即可顯示所有工作表名稱。請參閱截圖：

按一下名稱方塊上的下拉清單箭頭，以顯示所有表格名稱

注意：所有範圍名稱將與表格名稱一併顯示於名稱方塊中。

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

在編輯欄中列出所有表格名稱

如果所有表格皆使用原始名稱（例如 Table 1、Table 2……）命名，您不妨試著在編輯欄中直接列出這些表格名稱。

1. 在編輯欄中輸入公式 =ROW(T），隨後所有表格名稱將如以下截圖所示，顯示於清單方塊中。

在公式列中輸入公式以列出所有表格名稱

注意：已修改過的表格名稱無法透過此方法顯示。

使用 VBA 程式碼列出所有表格名稱

如果您的活頁簿同時包含預設工作表名稱與已修改過的名稱，可透過下列 VBA 程式碼一次全部列出。

1. 按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入 > 模組，並將下方的 VBA 程式碼複製到模組視窗中。

VBA 程式碼：一鍵列出 Excel 中所有工作表名稱！

Sub ListTables()
'Updated by Extendoffice 20180503
    Dim xTable As ListObject
    Dim xSheet As Worksheet
    Dim I As Long
    I = -1
    Sheets.Add.Name = "Table Name"
    For Each xSheet In Worksheets
        For Each xTable In xSheet.ListObjects
            I = I + 1
            Sheets("Table Name").Range("A1").Offset(I).Value = xTable.Name
        Next xTable
    Next
End Sub

3. 按下 F5 鍵，或點擊「執行」按鈕，立即執行程式碼！

接著會建立一個名為表格名稱的新工作表名稱，其中包含所有表格名稱列表，如下方截圖所示：

執行 VBA 程式碼，在新工作表中列出所有表格名稱

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多