方法/步驟 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代碼

'

 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工作簿中有多個工作表，如何可以自動生成帶超鏈接的目錄

我有個方法，百希望能幫你解決。首先最好是每張工作表的名字為可以區分的名字，比如說第度一張的客戶叫張一，工作表的名字就叫張一，第二張就叫張二，一次問類推，這張為舉例的圖片，注答意最左邊的位置，然后右鍵單擊，在回這里可以選擇工作表，點開“其他工作表”，選中你需要的表格就可以了。希望對答你有幫助。

聲明：本網頁內容旨在傳播知識，若有侵權等問題請及時與本網聯系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com