如何在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中重新排列表格列的位置？
• 如何在数据透视表中隐藏零值行？