如果你有一个包含数百个工作表的 Excel 工作簿，现在你想获取所有工作表名称的列表，你可以参考这篇文章。 在这里，我们将与您分享3个简单的方法。
有时，您可能需要生成 Excel 工作簿中所有工作表名称的列表。 如果只有几个工作表，您可以使用方法一手动列出工作表名称。 但是，在Excel工作簿包含大量工作表的情况下，最好使用后两种方法，效率会高很多。
方法一：手动获取列表
- 首先，打开特定的 Excel 工作簿。
- 然后，双击底部工作表列表中的工作表名称。
- 接下来，按“Ctrl + C”复制名称。
- 稍后，创建一个文本文件。
- 然后，按“Ctrl + V”粘贴工作表名称。
- 现在，通过这种方式，您可以将每张纸的名称一张一张地复制到文本文件中。
方法二：用公式列出
- 首先，转到“公式”选项卡，然后单击“名称管理器”按钮。
- 接下来，在弹出窗口中，单击“新建”。
- 在随后的对话框中，在“名称”字段中输入“ListSheets”。
- 稍后，在“参考”字段中，输入以下公式：
=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")
- 之后，单击“确定”和“关闭”以保存该公式。
- 接下来，在当前工作簿中创建一个新工作表。
- 然后，在单元格 A1 中输入“1”，在单元格 A2 中输入“2”。
- 然后，选中这两个单元格，向下拖动，在A列输入2,3,4,5、XNUMX、XNUMX、XNUMX等。
- 稍后，将以下公式放入单元格 B1 中。
=INDEX(列表表,A1)
- 立即，第一个工作表名称将输入到单元格 B1 中。
- 最后，只需向下复制公式，直到看到“#REF!” 错误。
方法 3：通过 Excel VBA 列出
- 对于作为tart、根据“触发Excel VBA编辑器如何在 Excel 中运行 VBA 代码“。
- 然后，将以下代码放入模块或项目中。
Sub ListSheetNamesInNewWorkbook() Dim objNewWorkbook 作为工作簿 Dim objNewWorksheet 作为工作表 Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets(1) For i = 1 To ThisWorkbook.Sheets.Count objNewWorksheet.Cells(i, 1) = i objNewWorksheet.Cells(i, 2) = ThisWorkbook.Sheets(i).Name Next i With objNewWorksheet .Rows(1).Insert .Cells(1, 1) = "INDEX" .Cells(1, 1).Font。 Bold = True .Cells(1, 2) = "NAME" .Cells(1, 2).Font.Bold = True .Columns("A:B").AutoFit End With End Sub
- 稍后，按“F5”立即运行此宏。
- 随即会出现一个新的 Excel 工作簿，您可以在其中看到源 Excel 工作簿的工作表名称列表。
竞品对比
| 性能 | 缺点 | |
| 方法1 | 操作简便 | 工作表多的话太麻烦 |
| 方法2 | 操作简便 | 要求您先输入索引 |
| 方法3 | 快速方便 | 用户应提防外部恶意宏 |
| 即使对于 VBA 新手也很容易 |
Excel 损坏
众所周知，MS Excel 有时会崩溃，从而在保存时损坏当前文件。 因此，强烈建议获得外部强大的 Excel修复 工具，例如 DataNumen Outlook Repair. 这是因为 Excel 中的自我恢复功能被证明经常失败。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com