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

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

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

技巧18 -全自動(dòng)更新的工作表目錄

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

而且可以雙擊切換到對(duì)應(yīng)的工作表，非常好用，全自動(dòng)更新！

1、點(diǎn)擊開發(fā)工具-Visual Basic（或者使用快捷鍵：ALT F11）

2、雙擊對(duì)應(yīng)的工作筆目錄

3、復(fù)制代碼，粘貼進(jìn)去

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

代碼：

功能：自動(dòng)生成文件目錄作者：Excel辦公實(shí)戰(zhàn)-小易Private Sub Worksheet_Activate() Columns("A:B").Clear Range("A1:B1") = [{"序號(hào)","表名"}] 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功能：雙擊跳轉(zhuǎn)到對(duì)應(yīng)的工作表作者：Excel辦公實(shí)戰(zhàn)-小易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

系列往期教程導(dǎo)航

【技巧1001-1】誰綠了Excel

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

【技巧1001-3】批量提取姓名電話號(hào)碼

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

【技巧1001-5】-數(shù)據(jù)透視表字段批量計(jì)數(shù)轉(zhuǎn)求和，效率提高100%！

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

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

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

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

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

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

【技巧1001-12】- Excel多列內(nèi)容合并的6種方法

【技巧1001-13】-項(xiàng)目進(jìn)度圖你會(huì)幾種？

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

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

【技巧1001-16】-實(shí)戰(zhàn)圖表|百分比圖（下篇）-方格百分比

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