在 Excel 工作簿中创建指向所有工作表的超链接列表的 3 种方法

当 Excel 工作簿有很多工作表时，为了快速访问它们，您可能需要创建一个指向所有工作表的超链接列表。 在本文中，我们将与您分享 3 种方法。

如果您的 Excel 工作簿包含大量工作表，您可能会发现查找和访问所需工作表很麻烦。 在这种情况下，您可以创建指向所有工作表的超链接列表，这样您只需单击超链接即可跳转到特定工作表。 很方便。 因此，这里我们将介绍 3 种创建此类列表的方法。

方法一：手动创建

1. 首先，打开相应的 Excel 工作簿。
2. 然后，在第一个工作表之前插入一个新工作表。
3. 接下来，右键单击单元格 A1，然后从上下文菜单中选择“超链接”。
4. 稍后，在“插入超链接”窗口中，选择左侧的“放置在本文档中”。
5. 之后，在“或在该文档中选择一个位置”列表中，选择除当前新工作表之外的第一个工作表。
6. 然后，将“要显示的文本”更改为工作表名称。
7. 最后，单击“确定”以插入超链接。
8. 现在，您可以将超链接一张一张地插入到剩余的工作表中。

方法二：通过公式创建

1. 首先，创建一个新工作表。
2. 然后，按照帖子中的方法 2 列出所有工作表名称。获取 Excel 工作簿中所有工作表名称列表的 3 种快速方法“。
3. 稍后，将下面的公式放入单元格C1。

=HYPERLINK("#'"&B1&"'!A1",B1)

4. 最后，向下拖动函数以获得指向其他工作表的超链接。

方法三：用VBA创建

1. 首先，启动Excel VBA编辑器，参考“如何在 Excel 中运行 VBA 代码“。
2. 然后，将下面的代码放入项目或模块中。

Sub CreateMenuOfHyperlinksToAllWorksheets()
    Dim objSheet As Worksheet

    ActiveWorkbook.Sheets.Add(Before:=Worksheets(1)).Name = "Sheet Menu"
    Range("A1").Select

    For Each objSheet In ActiveWorkbook.Worksheets
        If ActiveSheet.Name <> objSheet.Name Then
           ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "'" & objSheet.Name & "'" & "!A1", TextToDisplay:=objSheet.Name
           ActiveCell.Offset(1, 0).Select
           ActiveCell.EntireColumn.AutoFit
        End If
    Next objSheet

    With ActiveSheet
         .Rows(1).Insert
         .Cells(1, 1) = "MENU"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Columns.AutoFit
    End With
End Sub

3. 接下来，按“F5”运行这个宏。
4. 立即，您将看到一个新的工作表，其中包含所有工作表的所有超链接，如下面的屏幕截图。

对比

恢复损坏的 Excel 文件

Excel 有时会崩溃，这会导致 Excel 文件损坏。 因此，您必须习惯每次更改 Excel 文件时都保存文件。 否则，如果 Excel 崩溃但您还没有保存打开的文件，您必须求助于 xls修复 软件，例如 DataNumen Excel Repair, 取回损坏的 Excel 数据。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 中密度纤维板恢复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com