感謝誠邀！

功能：

⓵一鍵為工作簿中的所有工作表，建立一工作表目錄；

⓶單擊“工作表目錄”中的工作表名稱，可返回指定的工作表，反之亦然；

⓷單擊“清除資料”，僅清除“工作表目錄”上的資料....

主要介面擷取

鳴謝：需要原始檔的讀者，請先關注！

用Excel建立目錄，通常有以下2種情況：

對一個Excel工作簿內的多個表建立目錄

對某個資料夾下的檔案（比如其中的word或Excel檔案）建立目錄

以下對這兩種情況分別用示例進行說明。

對一個Excel工作簿內的多個表建立目錄，可以用手動新增超連結、或透過相容性檢查生成相關連結、又或者透過寫VBA程式碼等方法來實現，但是，這些方法其實都比較麻煩。

因此，我推薦採用Excel2016的超級強大新功能Power Query（2010或2013可到微軟官方下載外掛）完成，操作非常簡單，而且也可以在工作簿中的表格出現變化時直接重新整理得到最新目錄。實現步驟如下：

4、將資料返回Excel，用函式HyperLink建立連結

透過以上4步就可完成一個Excel工作簿所有工作表的目錄建立，不需要寫任何程式碼，只要滑鼠點點點即可，非常簡單，而且隨著工作表的增減，只需要在連結目錄表裡右鍵重新整理就得到最新的目錄資訊！

這實際上就是利用Excel管理資料夾及相關文件，可以很方便地利用Excel的篩選、查詢等功能。

以前，要用Excel實現這樣的管理比較麻煩，比如透過dos命令列獲得檔案相關資訊，然後複製貼上進來，或者透過VBA批次獲取，但這些方法都太專業，對很多使用者來說操作非常麻煩。

因此，推薦使用Excel2016的新功能Power Query來完成，而且，藉助Excel中的HyperLink函式實現相關文件連結，達到直接透過Excel開啟文件的效果。

具體實現步驟如下：

以上透過簡單的6個步驟，就實現了對資料夾相關檔案建立文件連結的過程，而且，在資料夾相關文件更新後，可以在Excel中直接重新整理得到最新結果，如下圖所示：

以上是用excel建立檔案目錄或工作表目錄的2個示例，從中可以看出，透過Excel的新功能Power Query實現目錄的建立，不僅簡單易用，新手也能輕鬆掌握！而且還達到了VBA一鍵重新整理的效果，非常值得推薦使用。

第1步單擊B1單元格，切換到“公式”選項卡，單擊“定義名稱”，彈出【新建名稱】對話方塊，在“名稱”文字框中輸入“目錄”，在“引用位置”文字框輸入以下公式：=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())

注意：GET.WORKBOOK函式是宏表函式，可以提取當前工作簿中的所有工作表名,需要先定義名稱後使用。

第2步在B1單元格中輸入公式：

=IFERROR(HYPERLINK(目錄&"!A1",MID(目錄,FIND("]",目錄)+1,99)),"")

EXCEL工作表一多就容易混亂，沒有目錄使用起來非常不方便，其實，生成一個能夠自動更新的目錄列表沒有你想象那麼難，3步即可完成：

先看下效果

首先，定義一個名稱：

SheetsName=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW())

第二步，輸入以下函式（目錄一般在A列哦）：

=IFERROR(HYPERLINK("#""&INDEX(SheetsName&""!A1",ROW(1:1)),INDEX(SheetsName,ROW(1:1))),"")

第三步，將目錄複製到每個sheet就完成啦，按住shift鍵可以選擇多個sheet一步複製哦！

新建新的工作表無需手動更改目錄，目錄會自動進行更新!

最後，由於這裡運用了宏表函式，因此需要啟用宏才能正常執行，並且注意將這個工作簿儲存為啟用宏的工作簿（xlsm\xls）

答：以下方法適合所有版本Excel

方法1：手工新增

方法2：利用公式（快）

方法3：利用程式設計（更快）

目標：為 Shee2-Sheet6 新增目錄，"目錄"工作表已事先準備好。

效果：

在“目錄”表的A2單元格右鍵，選擇"超連結"，開啟對話方塊，選好單元格地址和工作表名即可。

按Ctrl+F3，開啟名稱對話方塊，新建一個名稱，照圖輸入內容。

輸入名字：Name

引用位置：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW())

回到"目錄"工作表，在單元格A2中輸入公式，下拉至空白。

=IFERROR(HYPERLINK("#"&INDEX(Name,ROW(A2))&"!A1",INDEX(Name,ROW(A2))),"")

按ALT+F11組合鍵，開啟VB視窗，執行"插入"-"模組"，複製下面程式碼進去，按F5執行一步生成。

Sub AddHyperlinks()

Dim i As Integer

Dim Cell As Range

Set Cell = Sheets("目錄").Range("A2")

For i = 2 To Sheets.Count

If Sheets(i).Name <> "目錄" Then

Cell.Parent.Hyperlinks.ADD anchor:=Cell, Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name

End If

Set Cell = Cell.Offset(1, 0)

Next

End Sub

同一個工作簿中的大量工作表名製作列表

做列表之前，我先分享一個小技巧，那就是在大量工作表中如何快速找到指定的工作表：

<Ctrl>+<PgUp>/<PgDn>可以快速切換工作表；

在Excel左下角右鍵選單，即可快速找到指定工作表。

言歸正傳，製作工作表名的列表，可以使用選單"資料"-"獲取資料"-"自檔案"-"從工作簿"，即可直接載入工作簿的所有工作表名。

完整動畫如下所示：

當然，為了方便，還可以直接使用hyperlink函式做工作表的跳轉連結。

製作指定資料夾下的檔名列表有兩種方法：

方法1：從資料夾獲取資料

方法2：使用名稱管理器

選單"資料"-"獲取資料"-"自檔案"-"從資料夾"，選擇或輸入資料夾地址，即可獲取該資料夾下的檔案列表，如下所示：

完整動畫演示如下：

我們還可以在名稱管理器中，使用FILES獲取資料夾下的檔案列表，然後，使用Index函式獲取具體的檔名，如下所示：

完整動畫演示如下：

先可新建一個工作表《索引》，插入名稱-定義，運用transpose(get,wordbook(1)提取足夠多的工作表名再用超連結公式連結用宏就比較簡單了 我給你個宏的例子根據你表格的情況 還要做部分修改Sub mulu()On Error GoTo TuichuDim i As IntegerDim ShtCount As IntegerDim SelectionCell As RangeShtCount = Worksheets.CountIf ShtCount = 0 Or ShtCount = 1 Then Exit SubApplication.ScreenUpdating = FalseFor i = 1 To ShtCountIf Sheets(i).Name = "目錄" ThenSheets("目錄").Move Before:=Sheets(1)End IfNext iIf Sheets(1).Name <> "目錄" ThenShtCount = ShtCount + 1Sheets(1).SelectSheets.AddSheets(1).Name = "目錄"End IfSheets("目錄").SelectColumns("B:B").Delete Shift:=xlToLeftApplication.StatusBar = "正在生成目錄…………請等待！"For i = 2 To ShtCountActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目錄").Cells(i, 2), Address:="", SubAddress:= _Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).NameNextSheets("目錄").SelectColumns("B:B").AutoFitCells(1, 2) = "目錄"Set SelectionCell = Worksheets("目錄").Range("B1")With SelectionCell.HorizontalAlignment = xlDistributed.VerticalAlignment = xlCenter.AddIndent = True.Font.Bold = True.Interior.ColorIndex = 34End WithApplication.StatusBar = FalseApplication.ScreenUpdating = TrueTuichu:End Sub

有時候分Excel表格中含有多個工作表，檢視起來非常麻煩，如果有一個目錄，是不是就會非常方便呢？下面我們就來看看在excel中如何製作超連結目錄。

1、建立超連結

一般人的做法都是編輯目錄後，手動新增超連結，製成超連結目錄。不過當有多個工作表時，則太費時間。

操作：選中單元格—右鍵建立超連結（快捷鍵“Ctrl+K”）

2、利用查詢功能

Excel的查詢功能非常強大，除了可以用於查詢內容外，還可以用來建立超連結哦！下面來看看具體的操作方法吧。

選中所有表格後，在表格中插入一行，輸入“ml”。

3、excel檢查功能

我們也可以透過excel自帶的檢查功能來製作目錄。

操作：選中所有工作表，在空白單元格中輸入公式“=xfd1”。接著開啟“檔案—資訊—檢查工作薄—檢查相容性—複製到新表”，生成相容性報表。

然後將“相容性報表”中的超連結複製到新建的“目錄”工作表，替換到“‘！C2” ，這樣就可以快速生成目錄了。

4、多個檔案生成目錄

如果是要為多個檔案建立目錄，又該怎麼做呢？

操作：公式—名稱管理器—引用位置輸入“= FILES("D:\新建資料夾\*.xlsx")”，即引用D盤新建資料夾中格式為“xlsx”的檔案。

接著在任意單元格中輸入“=IFERROR(HYPERLINK("D:\新建資料夾\"&INDEX(f,ROW(A1)),INDEX(f,ROW(A1))),"")”，向下拖動，即可生成超連結目錄。

注意在儲存該檔案的時候，儲存型別應該選為“啟用宏的Excel格式”。

EXCEL中有很多工作表，如何建立帶連結的目錄列表，方便快速定位到目標工作表呢？下面我們就來分享2種建立工作表目錄的方法：公式法和VBA程式碼法。詳細建立方法還可看影片教程《EXCEL自動跳轉的工作表目錄，原來還可以這樣快速建立！》http://www.365yg.com/i6568996801129480718/#mid=95410599223

一、公式法

1.首先開啟要建立目錄的工作簿，新建一個工作表命名為【目錄】。

2.然後滑鼠放到A1單元格 →【公式】→【定義名稱】，在彈出的定義名稱視窗中輸入名稱【目錄】，在引用位置文字框輸入公式 =INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())

4.這種方法有個缺陷，工作表名不能包含括號，否則公式會出錯。

二、利用VBA程式碼一鍵快速建立工作表目錄

1.匯入程式碼，開啟檔案，ALT+F11 調出VBA 編輯器 →在工程視窗右擊選擇【匯入檔案】→選擇VBA 模組檔案（自動生成工作表目錄.bas）→關閉VBA 編輯器。

2.點開發工具——宏，選擇目錄宏，點執行就OK了，目錄建立好後可以根據需要調整字型顏色、格式等，其實這個宏還設定了快捷鍵Ctrl+Shift+Q，如果增加或刪除了工作表，直接按快捷鍵也可以實現快速新建或更新目錄。這種方法建立的目錄對工作表名沒有要求，方便快捷，好用！

具體建立方法見影片教程：

最簡單的Excel建立目錄方法, 利用Excel相容性檢查,適用於2003以上版本

1）首選我們做出一個目錄的格式，如下所示

2）選擇所有的工作表，在A列前插入一行

3）在A1單元格輸入公式=WW1

5）複製如下表格內容貼上到目錄中,連結建立成功，將！A1替換成空白，再將目錄適當美化

原理：利用Excel相容性檢查

由於Excel版本比較多，在儲存後excel會檢查是否有早期版本不支援的功能，比如說Excel 2003最大支援256列，即第IV列，如果現在版本資料在第IV列之後，excel會在相容性檢查裡提示，如下圖所示

得到的啟示就是：我要建立一個Excel低版本不相容的公式，比如說在A1單元格輸入公式=WW1（WW1單元格所在WW列超出了Excel2003最大支援列數256列，即第IV列），把所有工作表的A1單元格都輸入這個公式，然後利用Excel相容性檢查，把其中的超連結複製出來，貼上到目錄就可以了

要建立返回目錄表的連結才完美

操作要點：

一、公式法

1.首先開啟要建立目錄的工作簿，新建一個工作表命名為【目錄】。

2.然後滑鼠放到A1單元格 →【公式】→【定義名稱】，在彈出的定義名稱視窗中輸入名稱【目錄】，在引用位置文字框輸入公式 =INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())

4.這種方法有個缺陷，工作表名不能包含括號，否則公式會出錯。

Excel中含有多個工作表，如何才能快速定位到具體的某一個工作表呢？我們就可以透過建立目錄的方法來解決。下面來看看具體如何建立目錄的方法。

1、新增超連結

如果表格數量不是太多的話，可以透過建立“目錄”工作表，並手動新增超連結的方法，來製作目錄。

接著，在B1單元格中輸入：=IFERROR(HYPERLINK(目錄&"!A1",MID(目錄,FIND("]",目錄)+1,99)),"")，下拉選單完成目錄填充。