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

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

在名称框中列出所有表名
在公式栏中列出所有表名
列出所有带有VBA代码的表名

在名称框中列出所有表名

默认情况下，所有表名都列在“名称”框中。

点击左上角的下拉列表箭头 名称框 显示所有表名。 看截图：

备注：所有范围内的名称也会在名称框中列出所有表格名称。

在公式栏中列出所有表名

如果所有表都由原始表名（例如Table1，Table2…）命名，则可以尝试在公式栏中列出所有这些表名。

1.输入公式 =ROW(T 进入公式栏，然后所有列表名称都会在列表框中列出，如下图所示。

备注：使用此方法不会列出已修改的表名。

列出所有带有VBA代码的表名

如果您的工作簿中有默认表名和修改后的表名。 您可以使用以下VBA代码将它们一起列出。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的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中重新排列表中列的位置？
• 如何隐藏数据透视表中的零值行？