如何从工作簿创建所有工作表名称的列表

ms excelmicrosoft technologiescomputers更新于 2024/8/16 15:08:17

访问和管理工作表名称是一项重要技能，因为 Excel 是数据分析和组织数据的强大工具。无论您的 Excel 熟练程度如何，本教程都将逐步指导您完成整个过程。您是否曾为记住包含大量工作表的大型 Excel 工作簿中所有工作表的名称而苦恼?也许您需要引用某个工作表但忘记了它的名称，或者您想创建一个目录以便快速访问。在本文中，我们将介绍一种快速有效的方法，用于在 Excel 文件中创建所有工作表名称的列表。

完成本教程后，您将了解如何使用内置 Excel 函数和 Visual Basic for Applications (VBA) 自动提取和显示所有工作表名称。无论您的 Excel 用户经验多么丰富，如果您知道如何构建所有工作表标题的列表，您的工作效率将会提高，您的 Excel 项目也会变得更加井井有条。那么，让我们开始掌握这项至关重要的技能，释放 Excel 的全部潜力!

从工作簿创建所有工作表名称的列表

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来了解如何在 Excel 中从工作簿创建所有工作表名称的列表。

步骤 1

考虑任何包含多个工作表的 Excel 工作簿。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub CreateIndex()
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub