做了很多期的图表教程了，今天我们来分享点平时问的比较多的工作表目录

其实前面我们也做过工作表目录的教程，只是那个没有办法自动更新，一旦有新增或者删减不是很方便。

今天我们就来分享 一个小白都可以套用的

技巧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 With End 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 If End 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】- 柱形百分比组合图怎么玩？