製作帶超鏈接的Excel工作表目錄，只需一鍵！

一個Excel工作薄，可能包含多個工作表；這時我們就希望能有一個工作表目錄，一方面，可以縱覽薄里有多少表、都是什麼名字，另一方面，也可以通過超鏈接快速查看相關工作表內容。

那麼說起工作表目錄來，您首先想到的是什麼？

函數？

厲害！不愧是擁有函數神技的辦公高手。

不過，通常情況下，我們可以使用Excel自帶的工作表目錄功能。

GIF/1936K

如上GIF動畫所示，右鍵單擊工作表左下角的兩個小三角及之間的區域，Excel就會彈出一個類似工作表目錄的界面；單擊界面上的相應表名可以激活對應的工作表。

是不是很方便呢？

然而雖然已經很方便了，但是——確實還不夠！

有些時候，Excel自帶的這個工作表目錄界面就有些不夠看了。

工作表很多時，它的界面太小，一頁放不下，查看起來很不方便；

另外它也不夠美觀，製作Excel模版時，給別人用起來又有點怪，別人問你，大哥，你做的Excel模版，我想找某個工作表，好難啊。

你回說：笨蛋，你點這裡，點那樣，這樣那樣……嗯嗯，What are you 懂？

當然，最重要的一點，它不好欺負，我們看它哪裡不爽，不好修理它，比如想把界面拉寬放大點，一般人就沒轍，二班人就很二。

所以還得回到函數的方法上？

——NO！

函數方法也挺好的，但需要用到宏表函數，還得定義名稱，有點小繞。

打個響指，請看大標題——我們今天分享的是一鍵生成工作表目錄。

請看操作動畫：

GIF/1561K

動畫中所使用代碼如下：

Sub ml()

Dim sht AsWorksheet, i&, n$

Columns(1).ClearContents

清空A列數據

Cells(1, 1)= "目錄"

第一個單元格寫入字元串"目錄"

i = 1

將i的初值設置為1.

For Each shtIn 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

代碼解析補充：

小代碼里用到了Hyperlinks.Add語句，這裡用一個圖片來解釋它的每個參數。

——Then End----

易學寶微視頻教程是一套面向職場人士的Office技巧精粹，1290個技巧，都與實際工作密切相關。輕鬆學習技巧，練就職場達人，淘寶搜索關鍵字：ExcelHome易學寶

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！