4 在 Excel 工作表中高效列出所有工作表名称的方法

在大型 Excel 工作表中浏览大量工作表可能十分繁琐，尤其是在需要快速概览所有可用工作表时。本文为您介绍四种实用方法，助您轻松列出工作簿中的所有工作表名称，显著提升工作效率，优化工作簿结构。

在工作簿中列出所有工作表名称

• 使用复制和粘贴（手动操作）
• 使用 Kutools for Excel（简单易用，工作表名称可链接）
• 使用名称区域（在新工作表中列出）
• 使用 VBA（不稳定）

在工作簿中列出所有工作表名称

本教程为您介绍了四种高效列出工作簿中所有工作表的方法。请选择最适合您需求的方式，并按照分步说明轻松完成任务。

使用复制和粘贴（手动操作）

列出所有工作表名称的最简单方法是手动操作：

步骤 1：打开一个新工作簿

步骤 2：双击要复制的工作表标签

步骤 3：按 Ctrl + C 键复制工作表名称

步骤 4：单击某个单元格，然后按 Ctrl + V 粘贴工作表名称

步骤 5：重复上述步骤，逐一将所有工作表标签名称复制并粘贴到工作簿中

此方法适用于少量工作表名称，但当工作表多达数十个时，操作将十分耗时。对于大型工作簿，请考虑采用以下更高效的方法。

使用 Kutools for Excel（简单易用，工作表名称可链接）

Kutools for Excel 的“创建链接表”功能通过快速生成可点击的工作表名称列表，显著提升 Excel 的使用体验。该功能会自动为每个工作表插入超链接，只需单击即可瞬间跳转，特别适合管理大型工作簿，其效率与易用性远胜 Excel 的手动操作方式。

单击“KUTOOLS PLUS”>“工作表”>“创建链接表”。在弹出的对话框中，设置以下选项：

1. 选择索引样式（您希望可链接的工作表名称以超链接文本还是按钮形式呈现）。

2. 为用于列出工作表名称的新工作表命名。

3. 指定新工作表的插入位置。

4. 请选择用于排列工作表名称的列数。

5. 单击“确定”。

   

如需快速查看并轻松在工作表间导航，Kutools for Excel 的“导航窗格”功能极为高效——它不仅以可点击链接的形式列出所有工作表名称，助您一键直达，还同步显示所有已打开的工作簿，让您在不同工作簿间无缝切换。

使用名称区域（在新工作表中列出）

在 Excel 中，您只需创建一个命名区域，即可在新工作表中高效列出所有工作表名称。

步骤 1：单击“公式”>“定义名称”

步骤 2：在新建名称对话框中编辑名称和公式

• “名称”：为名称区域输入一个名称

• “引用位置”：将下方公式复制并粘贴到此处

  =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

• 单击“确定”。

  

步骤 3：使用公式来列表页名称

在单元格中输入以下公式，然后按下 Enter 键，即可获取所有工作表名称。

=TRANSPOSE(ListNames)

ListNames 是您在上述步骤中为命名区域所指定的名称。

使用 VBA（不稳定）

一种更高级且可自定义的方法是编写 VBA 脚本，以提取并列出工作表名称：

步骤 1：打开您要列出其工作表名称的工作簿

步骤 2：按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口

步骤 3：单击“插入”>“模块”

步骤 4：将下方代码复制并粘贴到模块中

Sub ListSheetNamesInNewWorkbook()
'UpdatebyExtendoffice
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim i As Integer
    
    ' Reference the current workbook
    Set wbSource = ActiveWorkbook
    
    ' Create a new workbook
    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Sheets(1)
    
    ' List all sheet names from the active workbook in the new workbook
    For i = 1 To wbSource.Sheets.Count
        wsTarget.Cells(i, 1).Value = wbSource.Sheets(i).Name
    Next i
    
    ' Cleanup
    Set wbSource = Nothing
    Set wbTarget = Nothing
    Set wsTarget = Nothing
End Sub

步骤 5：按 F5 键或单击“运行”按钮以执行代码

现在将打开一个新工作簿，用于列出所有工作表的名称。

每种方法都根据您的需求提供独特优势——从简单的手动列示到更高效的解决方案（如 Kutools 或 VBA）。选择最适合您工作流程的方法，轻松高效地管理和导航 Excel 工作表。欲掌握更多实用技巧，请持续关注我们的博客！