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

要列出工作簿中的所有表格名稱，本文中的方法可以幫助您完成此操作。

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

在名稱框中列出所有表格名稱

默認情況下，所有表格名稱都列在名稱框中。

點擊左上角名稱框的下拉列表箭頭以顯示所有表格名稱。請參見截圖：

備註：所有範圍名稱也會與所有表格名稱一起列在名稱框中。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

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

如果所有表格都以原始表格名稱命名，例如 Table1、Table2…，您可以嘗試在編輯欄中列出所有這些表格名稱。

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 鍵或點擊執行按鈕來運行程式碼。

然後會創建一個名為表格名稱的新工作表，並列出所有表格名稱，如下方截圖所示：

相關文章：

• 如何在 Excel 的單元格中顯示表格或數據透視表名稱？
• 如何在受保護的工作表中插入表格行以保持表格可擴展性？
• 如何重新排列 Excel 表格中列的位置？
• 如何隱藏數據透視表中的零值行？