當 Excel 工作簿有許多工作表時，為了快速訪問它們，您可能需要創建指向所有工作表的超鏈接列表。 在這篇文章中，我們將與您分享3種方法。
如果您有一個包含大量工作表的 Excel 工作簿，您可能會發現查找和訪問所需的工作表很麻煩。 在這種情況下，您可以創建指向所有工作表的超鏈接列表，這樣您只需單擊超鏈接即可跳轉到特定工作表。 相當方便。 因此，這裡我們將介紹 3 種創建此類列表的方法。
方法一：手動創建
- 首先，開啟對應的 Excel 工作簿。
- 然後，在第一個工作表之前插入一個新工作表。
- 接下來，右鍵單擊單元格 A1 並從上下文菜單中選擇“超鏈接”。
- 隨後，在“插入超鏈接”窗口中，選擇左側的“放置在本文檔中”。
- 之後，在“或在本文檔中選擇一個位置”列表中，選擇除當前新工作表之外的第一個工作表。
- 然後，將“要顯示的文本”更改為工作表名稱。
- 最後，單擊“確定”插入超鏈接。
- 現在，您可以將超鏈接一張一張地插入到剩餘的工作表中。
方法二：通過公式創建
- 首先，創建一個新工作表。
- 然後，按照帖子中的方法 2 列出所有工作表名稱。在Excel工作簿中獲取所有工作表名稱列表的3種快速方法“。
- 然後，將下面的公式放入單元格 C1 中。
=HYPERLINK("#'"&B1&"'!A1",B1)
- 最後，向下拖動該功能即可獲取其他工作表的超鏈接。
方法三：使用VBA創建
- 首先，通過參考“啟動Excel VBA編輯器”如何在Excel中運行VBA代碼“。
- 然後，將下面的代碼放入項目或模塊中。
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
- 接下來，按“F5”運行該宏。
- 您將立即看到一個新的工作表，其中包含所有工作表的所有超鏈接，如下面的屏幕截圖所示。
競品對比
| 優點 | 缺點 | |
| 方法1 | 操作方便 | 如果工作表太多就太乏味了 |
| 方法2 | 如果有多個工作表，比方法 1 更快 | 要求您提前列出數字和工作表名稱 |
| 方法3 | 比上面2種方法更快更有效 | 警惕可能惡意的外部宏 |
恢復損壞的 Excel 文件
Excel 有時會崩潰，這可能會導致 Excel 文件損壞。 因此，您必須習慣每次更改 Excel 文件時都保存文件。 否則，如果 Excel 崩潰但您尚未保存打開的文件，則必須求助於 XLS修復 軟件，例如 DataNumen Excel Repair，恢復損壞的Excel數據。
作者簡介：
Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 mdf恢復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM