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

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

在名稱框中列出所有表名

在公式欄中列出所有表名

列出所有帶有VBA代碼的表名在名稱框中列出所有表名驚人的！ 在 Excel 中使用高效的選項(xiàng)卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時(shí)間，并減少數(shù)千次鼠標(biāo)單擊！

默認(rèn)情況下，所有表名都列在“名稱”框中。

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

備注：所有范圍內(nèi)的名稱也會(huì)在名稱框中列出所有表格名稱。

在公式欄中列出所有表名

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

1.輸入公式 =ROW(T 進(jìn)入公式欄，然后所有列表名稱都會(huì)在列表框中列出，如下圖所示。

備注：使用此方法不會(huì)列出已修改的表名。

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

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

1。 按 其他 + F11 鍵打開(kāi) Microsoft Visual Basic應(yīng)用程序 窗口。

2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁(yè) > 模塊。 然后將下面的VBA代碼復(fù)制到“模塊”窗口中。

VBA代碼：在Excel中列出所有表名。

Sub ListTables()Updated by Extendoffice 20180503Dim xTable As ListObjectDim xSheet As WorksheetDim I As LongI = -1Sheets.Add.Name = "Table Name"For Each xSheet In WorksheetsFor Each xTable In xSheet.ListObjectsI = I + 1Sheets("Table Name").Range("A1").Offset(I).Value = xTable.NameNext xTableNextEnd SubCopy

3。 按 F5 鍵或單擊“運(yùn)行”按鈕以運(yùn)行代碼。

然后，將創(chuàng)建一個(gè)名為“表名”的新工作表，其中列出了所有表名，如下圖所示：

相關(guān)文章：如何在Excel的單元格中顯示表格或數(shù)據(jù)透視表的名稱？如何通過(guò)在Excel中受保護(hù)的工作表中插入表行來(lái)保持表可擴(kuò)展？如何在Excel中重新排列表中列的位置？如何隱藏?cái)?shù)據(jù)透視表中的零值行？

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel