1、把游標放在第一個工作表希望插入目錄的地方；
2、鍵入Alt+F11開啟VBA編輯器，然後選擇選單“插入 - 模組”；
3、在程式碼編輯區貼上如下程式碼：Option ExplicitSub AutoGenerateHyperlinks()Dim nIndex As IntegerDim oRange As RangeFor nIndex = 2 To Sheets.CountSet oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).NameNextEnd Sub4、鍵入F5執行，再鍵入Alt+F11切換回第一個工作表，檢查目錄超鏈是否自動建立成功。
1、把游標放在第一個工作表希望插入目錄的地方；
2、鍵入Alt+F11開啟VBA編輯器，然後選擇選單“插入 - 模組”；
3、在程式碼編輯區貼上如下程式碼：Option ExplicitSub AutoGenerateHyperlinks()Dim nIndex As IntegerDim oRange As RangeFor nIndex = 2 To Sheets.CountSet oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).NameNextEnd Sub4、鍵入F5執行，再鍵入Alt+F11切換回第一個工作表，檢查目錄超鏈是否自動建立成功。