前言：

在上主菜前，先吃個開胃菜，為大家先講解下工作表操作的相關(guān)快捷鍵：

CTRL+PAGE UP移動到上一個工作表

CTRL+PAGE DOWN移動到下一個工作表

SHIFT+CTRL+PAGE DOWN選擇當(dāng)前和下一個工作表

SHIFT+CTRL+PAGE UP選擇當(dāng)前和上一個工作表

方法一：

將鼠標(biāo)定位在EXCEL表格名稱欄左下角，點擊右鍵，就可以彈出“激活”窗，可以看到所有的文檔按順序排列在窗體里面，點擊相應(yīng)文件名就會跳轉(zhuǎn)到對的工作表。

方法二：

按CTRL+G，彈出“定位”對話框，在“引用位置”輸入“客服部!A1”（中英文嘆號，大小寫字母都可以），跳轉(zhuǎn)到對的工作表“客服部”，光標(biāo)定位在A1單元格。

演示動畫效果如下：

方法三：

在word中當(dāng)篇幅很長時，為方便閱讀會用到目錄，點擊目錄對應(yīng)的標(biāo)題字段就可以自動跳轉(zhuǎn)到對應(yīng)的篇章內(nèi)容。同樣的思路，在EXCEL中是否可以直接生成1頁目錄，點擊對應(yīng)的表格標(biāo)題就可以跳轉(zhuǎn)過去呢？

EXCEL可以通過“插入超鏈接”（快捷鍵：CTRL+K），引用“本文檔中的位置”來任意設(shè)置也是可以實現(xiàn)的。

但是這么多文檔，一個一個地設(shè)置起來也很費事，如何批量處理呢？這時候就需要用到VBA了，代碼如下：

Sub新建目錄及鏈接表()

Sheets.Add(Sheets(1)).Name = '目錄'

For i = 2 To Worksheets.Count

Sheets('目錄').Cells(1, 2).Value = '目錄'

Sheets('目錄').Cells(i, 2) = Sheets(i).Name

Sheets('目錄').Hyperlinks.Add Sheets('目錄').Cells(i,2), '', Sheets(i).Name & '!A1'

With Sheets(i).Buttons.Add(300, 10, 80, 25)

.OnAction = '返回按鈕'

.Characters.Text = '返回目錄'

End With

Next

End Sub

Sub返回按鈕()

Sheets('目錄').Select

End Sub

VBA代碼比較簡單，思路如下：

新建“目錄”工作表，名稱可以根據(jù)需要更改，若本文檔中已經(jīng)存在“目錄”工作表，會報錯。

循環(huán)將各工作表的名稱提取出來，依次保存在“目錄”工作表的第2列單元格中。

用hyperlinks方法，循環(huán)將工作表名稱字段所在單元格與工作表一一建立鏈接。

說明：為方便操作，本案例有增加返回“目錄”按鈕，若不需要，剛可將標(biāo)綠色代碼直接去掉即可。演示動畫效果如下：