當在Excel做了很多分頁時，就需要做目錄來連結那些分頁，但是一個個用ctrl+k 做，是非常累人的，這時，我們就可以用開發者工具來完成它。
１） 在任一工作表按右鍵 → 檢視程式碼
２） 在任意空白處點選右鍵 → 插入 → 模組
３） 左邊會跑出模組 → 在Ｍｏｄｕｌｅ１中插入程式碼 → 回到工作表
Sub ml()
Dim sht As Worksheet, i&, n$
Columns(1).ClearContents
'清空A列數據
Cells(1, 1) = "目錄"
'第一個單元格寫入字符串"目錄"
i = 1
'將i的初值設置為1.
For Each sht In Worksheets
'循環當前工作簿的每個工作表
n = sht.Name
If n <> ActiveSheet.Name Then
'如果sht的名稱不是當前工作表的名稱則開始建立超連結
i = i + 1
'累加i
ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", SubAddress:="'" & n & "'!a1", TextToDisplay:=n
'建超連結
End If
Next
End Sub
４） 按ａｌｔ＋Ｆ８ 打開巨集 → 執行ｍｌ
５） 即產生分頁目錄
