Excel教程：30秒做好Excel超鍊接目錄
下面的Excel文件，包含多個工作表，如下所示：
我們通過一段VBA代碼，一鍵提取所有工作表表名，放在一張新的工作表。随着工作表的減少或者增加，點擊按鈕，還可以自動重新提取目錄。
制作好的Excel超鍊接目錄效果如下：
操作步驟如下：
第一步：在“案例1”工作表前面插入一張空白工作表Sheet。
第二步：在“Sheet1”工作表标簽，點擊右鍵，選擇“查看代碼”
第三步：查看代碼會激活VBE編輯器界面，點擊插入——模塊，并且複制以下代碼到右邊編輯區。
Sub 提取表名() Dim sht As Worksheet, myRange As Range, mycol%, myrow% On Error GoTo 100 Set myRange = Application.InputBox("隻選一個!!!", "選擇目錄起始單元格", , , , , , 8) If myRange.Count <> 1 Then Exit Sub myrow = myRange.Row mycol = myRange.Column With myRange.Resize(500, 1) .ClearContents .NumberFormat = "@" End With myRange = " 目錄" For Each sht In Sheets If sht.Name <> ActiveSheet.Name Then myrow = myrow + 1 Set Rng = Cells(myrow, mycol) Rng.Value = sht.Name ActiveSheet.Hyperlinks.Add anchor:=Rng, _ Address:="", SubAddress:="'" & sht.Name & "'!a1", TextToDisplay:=sht.Name End If Next 100: End Sub第四步：點擊“保存”按鈕，Excel提示我們是否VB項目，點擊“否”。
第五步：彈出的“另存為”對話框，選擇文件保存類型為：Excel啟用宏的工作薄，保存即可。
第六步：關閉VBE編輯器，回到Excel界面。
第七步：插入一個任意形狀，輸入一些提示文字，截圖如下：
第八步：點擊形狀，右鍵選擇“指定宏”。
第九步：選擇我們上面在模塊1錄入的“提取表名”的代碼，确定。
第十步：點擊按鈕，彈出的“選擇目錄起始單元格”，我們點擊A1單元格，點擊确定，程序即可為我們自動添加所有工作表名稱。
需要本篇Excel教程的源文件，請加微信：blwjymx發送給你。
你可能想看：
最新文章
-
太師修行問答48：人生隻是演戲瑜伽也能修禅，能達到幾禅
7分鐘前 -
![[書法]閑暇草書彙03](https://m.74hao.com/zb_users/upload/2024/10/202410161729086639361289.png)
[書法]閑暇草書彙03
24分鐘前 -
3D技巧：兩碼和差選号法
46分鐘前 -
“落日無情最有情，遍催萬樹暮蟬鳴”楊萬裡詩五首，風格清新自然
1小時前 -
《玄理賦》五行生克的太過不及 等
1小時前 -
《老山1984-1989，中越老山之戰實錄》連載之二：118團8連收敲掉54
2小時前 -
攝影：故鄉的秋色（2）
2小時前 -
論入宅歸火擇吉（續）第二，坐向要吉 坐向要吉，主要是指所選日課
2小時前
有話要說...