導讀做了很多期的圖表教程了，今天我們來分享點平時問的比較多的工作表目錄其實前面我們也做過工作表目錄的教程，只是那個沒有辦法自動更新，一旦有新增或者刪減不是很方便....

做了很多期的圖表教程了，今天我們來分享點平時問的比較多的工作表目錄

其實前面我們也做過工作表目錄的教程，只是那個沒有辦法自動更新，一旦有新增或者刪減不是很方便。

今天我們就來分享 一個小白都可以套用的

技巧18 -全自動更新的工作表目錄

效果圖

不管是新增還是工作表刪除，我們來到目錄都可以看到目錄是最新的

而且可以雙擊切換到對應的工作表，非常好用，全自動更新！

教程

1、點擊開發工具-Visual Basic（或者使用快捷鍵：ALT F11）

2、雙擊對應的工作筆目錄

3、復制代碼，粘貼進去

代碼通用，不用考慮特殊情況的問題，主要注意文件有有一個工作表名稱叫目錄即可

代碼：

功能：自動生成文件目錄作者：Excel辦公實戰-小易Private Sub Worksheet_Activate() Columns("A:B").Clear Range("A1:B1") = [{"序號","表名"}] Dim sht As Worksheet, n As Integer n = 1 For Each sht In Worksheets If sht.Name <> "目錄" Then n = n 1 Cells(n, 1) = n - 1 Cells(n, 2) = sht.Name End If Next With Range("a1").CurrentRegion .Borders.LineStyle = 1 .RowHeight = 18 End WithEnd Sub功能：雙擊跳轉到對應的工作表作者：Excel辦公實戰-小易Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 2 Or Target.Cells.Count <> 1 Then End If Target.Value <> "" Then Cancel = True Worksheets(Target.Value).Select End IfEnd Sub

系列往期教程導航

【技巧1001-1】誰綠了Excel

【技巧1001-2】3秒搞定最大、最小、首次、最新

【技巧1001-3】批量提取姓名電話號碼

【技巧1001-4】-批量提取文件名并建立超鏈接

【技巧1001-5】-數據透視表字段批量計數轉求和，效率提高100%！

【技巧1001-6】-Excel版的AI智能處理

【技巧1001-7】-元和萬元之間自由切換

【技巧1001-8】-終極指南|0基礎制作工作表目錄

【技巧1001-9】-看完，還不會按顏色求和就是你的不對了

【技巧1001-10】-下拉列表居然可以多選？！

【技巧1001-11】-Excel刪除重復值，我用了7種方法

【技巧1001-12】- Excel多列內容合并的6種方法

【技巧1001-13】-項目進度圖你會幾種？

【技巧1001-14】-實戰圖表|不一樣的百分比圖(上)

【技巧1001-15】-實戰圖表|不一樣的百分比圖(中篇)-水缸百分比圖

【技巧1001-16】-實戰圖表|百分比圖（下篇）-方格百分比

【技巧1001-16】- 柱形百分比組合圖怎么玩？