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

访问和管理工作表名称是一项重要技能，因为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