方法/步驟 1 打開excel文檔，創建若干個sheet頁,例如sheet1,a1,a2,a3等 2 點擊菜單中的開發工具菜單，點擊查看代碼按鈕 3 如果找不到開發工具菜單，請點擊文件->選項->自定義功能區->主選項卡中，選中開發工具複選框 4 錄入以下下代碼。目的是用
在使用excel製作表格數據時，有時候會分許多sheet，但是一旦sheet頁多時，不論查找還是選中都很不方便。
材料/工具
電腦excel軟件
可以使用VBA來實現，選中有連接的單元格區域，執行下面的宏就可以了： Sub 更新所有表的超級鏈接() Dim c As Range, st As Worksheet For Each c In Selection.Cells If c.Value "" Then If c.Hyperlinks.Count > 0 Then c.Hyperlinks(1).SubAdd
方法
首先打開電腦，再打開excel文檔後，創建幾個sheet頁,例如sheet1,a1,a2,a3等；
使用VBA可完成操作目標。 按照如下步驟操作： 在excel文件中打開vba編輯器(可利用快捷鍵alt+F11) 點擊左側sheet1，複製如下代碼到右側編輯框中（如下圖所示） 運行該代碼（點擊播放按鈕或者直接按F4） 回到sheet1中即可看到已生成所有sheet名稱
然後點擊菜單裏面的“開發工具”菜單，然後找到“查看代碼”並點擊；
Sub 創建工作表目錄() ' If Sheets(1).Name "目錄" Then yn = MsgBox("【目錄】工作表不存在，建立【目錄】嗎？", vbYesNo, "建立【目錄】工作表") If yn = vbYes Then Sheets.Add(Sheets(1)).Name = "目錄" Columns("A:A").Select With Selecti
如果找不到開發工具菜單的話，請點擊文件，然後點擊選項，再點擊自定義功能區，再點擊主選項卡中，選中開發工具複選框；
選中要插入鏈接的第一個工作表標籤 按住SHIFT鍵的同時 點擊最後一個工作表的標籤 在某一單元格內輸入 =HYPERLINK("#目錄!A1","目錄!A1") 回車 所有的工作表就都加入了返回目錄的鏈接。
錄入以下代碼，目的是用來在sheet1頁中的第一列生成sheet名字列Sub createmulu() For i = 1 To Sheets.CountCells(i, 1) = Sheets(i).Name Next End Sub；
使用VBA可完成操作目標。 按照如下步驟操作： 在excel文件中打開vba編輯器(可利用快捷鍵alt+F11) 點擊左側sheet1，複製如下代碼到右側編輯框中（如下圖所示） 運行該代碼（點擊播放按鈕或者直接按F4） 回到sheet1中即可看到已生成所有sheet名稱
在代碼編輯窗口中點擊綠色運行按鈕，或者按F5鍵，運行後sheet1如下圖所示：
複製下面的公式至各工作表中需要顯示超鏈接的空白單元格中，如：A1 =HYPERLINK("#sheet1!A1","返回目錄")
在sheet1中B2單元格中定義超鏈接函數，錄入=HYPERLINK("#"&A2&"!A1",A2)；
方法/步驟 1 該方法主要通過用get.workbook函數自定義一個名稱實現，首先打開要創建目錄的工作簿，並新建一個工作表，重命名為目錄，並填好相應名稱。 2 然後 點擊 < 定義名稱> 在彈出的新建名稱窗口中 名稱命名為（目錄），在引用位置輸入=get.
鼠標選中B1單元格中，將鼠標放在單元中右下側，當鼠標變為十字時，向下拖動鼠標；
在SHEET1工作表中，按Ctrl+F3出現自定義名稱對話框，取名為X，在“引用位置”框中輸入：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100) 確定 在目錄工作表（即sheet1）的A2單元格輸入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(
此時點擊B列的sheet名稱為超鏈接，就可以打開相應的sheet頁；
具體步驟如下： 需要準備的材料分別是：電腦、Excel表格。 1、首先打開需要編輯的Excel表格，進入到編輯頁面中。 2、然後右鍵單擊想要插入超鏈接的單元格，選擇“超鏈接”。 3、然後在彈出來的窗口中點擊“要顯示的文字”，輸入想要顯示的文字，選擇
點擊shift鍵，選中除sheet1外的其他sheet頁，在A1單元格中錄入=HYPERLINK("#sheet1!A1","返回目錄")，然後回車，所有選中sheet頁中便成功添加“返回目錄”超鏈接。
按ALT+F11，然後選你的工作表，把下面的代碼粘貼進去，然後回到EXCEL中按ALT+F8，執行宏Content即可 Sub Content() '創建目錄 ' Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet) NewSheet.Name = "Content" NewSheet.Cells(1,
擴展閲讀，以下內容您可能還感興趣。
EXCEL鏈接到工作表中的目錄怎麼做？
具體步驟如下：
需要準備的材料分別是：電抄腦、Excel表格。
1、首先打開需要編輯的Excel表格，進入到編輯頁面中。
襲查看大圖" class="ikqb_img_alink">
2、然後右鍵單擊想要插入超鏈接的單元格，選擇知“超鏈接”。
3、然後在彈出來的窗口中點擊“要顯示的文字”，輸入想要顯示的文字，選擇“文檔中的位置”，
4、然後選擇超鏈接的工作表，回車確定。
5、然後就完道成了。
EXCEL 同個工作薄如何批量超鏈接，即在目錄表裏點頁碼Sheet1、Sheet2、Sheet3，即可跳到相應的工作表
按ALT+F11，然後選你的來工作表，把下面源的百代碼粘貼進去，然後回度到EXCEL中按ALT+F8，執行問宏Content即可
Sub Content()
'創建目答錄
'
Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet)
NewSheet.Name = "Content"
NewSheet.Cells(1, 1).Value = "Content"
For i = 2 To Sheets.Count
NewSheet.Cells(i, 1).Value = i - 1
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Cells(i, 2), Address:="", _
SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End With
Next i
End Sub
Excel 怎麼提取工作表名並建立超連接來做成目錄
需要用到VBA
這是我以前在網上找到的e799bee5baa6e79fa5e98193e78988e69d8331333337376434代碼
Sub 創建工作表目錄()'
If Sheets(1).Name <> "目錄" Then
yn = MsgBox("【目錄】工作表不存在，建立【目錄】嗎？", vbYesNo, "建立【目錄】工作表")
If yn = vbYes Then
Sheets.Add(Sheets(1)).Name = "目錄"
Columns("A:A").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ColumnWidth = 6
End With
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.NumberFormatLocal = "@"
.ColumnWidth = 36
End With
Range("A1").Select
Else
End
End If
Else
yn = MsgBox("【目錄】工作表已存在，更新數據嗎？", vbYesNo, "更新目錄數據")
If yn = vbNo Then End
End If
Sheets("目錄").Select
Columns("A:B").Select
Selection.ClearContents
Range("A1").Select
Cells(1, 1).Value = "序號"
Cells(1, 2).Value = "工作表名稱"
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets("目錄").Select
Cells(i, 1).Value = i - 1
Cells(i, 2).Value = Sheets(i).Name
Cells(i, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Cells(i, 2).Value & "'!A1", TextToDisplay:=Cells(i, 2).Value
Next i
Application.ScreenUpdating = True
yn = MsgBox("【目錄】工作表已更新，按“Ctrl+z”返回此【目錄】！" , vbOKOnly, "查詢工作表")
End Sub
EXCEL中我想把工作表一的A作為目錄，怎樣批量設置超鏈接A1對應後面的sheet1，A2對應sheet2……？
請參考如下步驟在來第一個工作表自動批量生成指向後續各個工源作表的超鏈目錄：
1、把光標放在第一個工作表希望插入目百錄的地方；
2、鍵入Alt+F11打開VBA編輯器，然後選擇菜單“插入 - 模塊”；
3、在度代碼編輯區粘貼如下問代碼：
Option Explicit
Sub AutoGenerateHyperlinks()
Dim nIndex As Integer
Dim oRange As Range
For nIndex = 2 To Sheets.Count
Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
Next
End Sub
4、鍵入F5運行，再鍵入Alt+F11切換回第一個工作表，檢查目答錄超鏈是否自動建立成功。
EXCEL工作簿中有多個工作表，如何可以自動生成帶超鏈接的目錄
我有個方法，百希望能幫你解決。首先最好是每張工作表的名字為可以區分的名字，比如説第度一張的客户叫張一，工作表的名字就叫張一，第二張就叫張二，一次問類推，這張為舉例的圖片，注答意最左邊的位置，然後右鍵單擊，在回這裏可以選擇工作表，點開“其他工作表”，選中你需要的表格就可以了。希望對答你有幫助。
