如何在Excel中创建工作表名称的动态列表？

Excel 是一款功能强大的工具，允许您以结构化的方式组织和分析数据。Excel 用户最常执行的任务之一是在工作簿中管理多个工作表。随着工作簿中工作表数量的增加，跟踪所有工作表可能会变得越来越困难。为了简化您的工作流程并提高 Excel 使用效率，您可以创建一个动态的工作表名称列表，该列表可以轻松更新和引用。本教程将指导您完成在 Excel 中使用公式和内置功能创建动态工作表名称列表的过程。在本教程结束时，您将更好地了解如何使用动态命名约定在 Excel 中管理和组织多个工作表。

创建工作表名称的动态列表

在这里，我们可以通过简单地将 VBA 代码插入到工作表中来完成任务。因此，让我们来看一个简单的过程，了解如何在 Excel 中创建工作表名称的动态列表。

步骤 1

考虑任何 Excel 工作表。首先，右键单击工作表名称并选择“查看代码”以打开 VBA 应用程序，然后将下面提到的代码复制到文本框中，如下所示。

右键单击 > 查看代码 > 复制代码

代码

Private Sub Worksheet_Activate()
   Dim xSheet As Worksheet
   Dim xRow As Integer
   Dim calcState As Long
   Dim scrUpdateState As Long
   Application.ScreenUpdating = False
   xRow = 1
   With Me
      .Columns(1).ClearContents
      .Cells(1, 1) = "Names"
      .Cells(1, 1).Name = "Names"
   End With
   For Each xSheet In Application.Worksheets
      If xSheet.Name <> Me.Name Then
         xRow = xRow + 1
         With xSheet
            .Range("A1").Name = "Start_" & xSheet.Index
            .Hyperlinks.Add anchor:=.Range("A1"), Address:="", _
               SubAddress:="Index", TextToDisplay:="Back to Names"
            End With
            Me.Hyperlinks.Add anchor:=Me.Cells(xRow, 1), Address:="", _
            SubAddress:="Start_" & xSheet.Index, TextToDisplay:=xSheet.Name
      End If
   Next
   Application.ScreenUpdating = True
End Sub

步骤 2

现在单击 F5 运行代码，所有工作表名称现在都将列在工作表上。

结论

在本教程中，我们使用了一个简单的示例来演示如何创建 Excel 中的工作表名称的动态列表，以突出显示特定数据集。

更新于: 2023年7月13日

894 次浏览

开启你的 职业生涯

通过完成课程获得认证

开始学习
广告