如何在Excel中列出所有表名？

為了列出工作簿中的所有表名，本文中的方法可以幫助您理解它。

在名稱框中列出所有表名稱
在公式欄中列出所有表名
列出所有帶有VBA代碼的表名

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

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

點擊左上角的下拉列表箭頭 名稱框 顯示所有表名。 看截圖：

備註：所有範圍內的名稱也會在名稱框中列出所有表格名稱。

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 Excel 功能。 立即下載 並體驗前所未有的效率！

在公式欄中列出所有表名

如果所有表都由原始表名（例如Table1，Table2…）命名，則可以嘗試在公式欄中列出所有這些表名。

1.輸入公式 =ROW(T 進入公式欄，然後所有列表名稱都會在列錶框中列出，如下圖所示。

備註：使用此方法不會列出已修改的表名。

列出所有帶有VBA代碼的表名

如果您的工作簿中有默認表名和修改後的表名。 您可以使用以下VBA代碼將它們一起列出。

1。 按 其他 + 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中受保護的工作表中插入表行來保持表可擴展？
• 如何在Excel中重新排列表中列的位置？
• 如何隱藏數據透視表中的零值行？