如何在Excel中创建带有每个工作表超链接的下拉列表？

在Excel中，创建一个下拉列表，允许用户快速导航到工作簿中的不同工作表非常有用。一种实现方法是使用VBA代码创建一个包含指向工作簿中每个工作表的超链接的下拉列表。

在本教程中，您将学习如何逐步创建一个宏，该宏将在指定的单元格中创建一个下拉列表，其中包含活动工作簿中每个工作表的名称。该宏还将在下拉列表旁边的每个单元格中创建一个超链接，链接到相应的工作表。通过学习本教程，您将能够创建更友好、更高效的Excel工作簿导航方式，从而节省时间和精力。让我们开始吧！

创建带有每个工作表超链接的下拉列表

在这里，我们将首先创建一个VBA模块，然后运行它来完成任务。让我们来看一个简单的过程，了解如何在Excel中创建带有每个工作表超链接的下拉列表。

步骤1

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

首先，右键单击工作表名称，然后选择“查看代码”以打开VBA应用程序。然后，单击“插入”并选择“模块”，然后将下面提到的文本复制到文本框中，类似于下图。

右键单击 > 查看代码 > 插入 > 模块 > 复制代码

代码

Sub CreateSheetLinksDropdown()
   Dim ws As Worksheet
   Dim list() As String
   Dim i As Integer
    
   ReDim list(1 To ActiveWorkbook.Worksheets.Count)
    
   i = 1
    
   For Each ws In ActiveWorkbook.Worksheets
      list(i) = ws.Name
         i = i + 1
   Next ws
   Range("A1").Validation.Delete
   Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(list, ",")
   For i = 1 To UBound(list)
      Range("A1").Hyperlinks.Add Anchor:=Range("B" & i), Address:="", SubAddress:="'" & list(i) & "'!A1", TextToDisplay:="Go to " & list(i)
   Next i
End Sub

在代码中，A1是创建下拉列表的单元格。