工作表目录批量生成，已是老生常谈的Excel技巧。曾分享过公式法、查找法、兼容性检查法等，但如果现在让一个新手生成目录，估计还得先云百度一番，必竟用公式太复杂，用技巧操作步骤一般用户是很难记住的。
今天做一个小工具，让你一秒即可生成任一Excel工作簿的工作表目录。不信就试试：
随便打开一个Excel文件，选取生成目录的位置，启用目录生成工具，点按钮【是】后1秒生成当前工作簿的目录。
是不是特别好用，但这么好用的目录生成工具在哪下载啊? 嘿嘿，不需要下载，几步就教你自已制作一个。
一、制作目录生成工具
1、粘贴代码
新建一个空白的Excel文件，在工作表标签右键 – 查看代码，在新打开的窗口（VBA编辑器）中执行插入 -模块，然后把下面的代码粘到右侧的空白处。
Sub 生成目录()Dim rg As Range, k As IntegerIf MsgBox("你确定生成本工作簿的目录吗?", vbQuestion + vbYesNo, "生成目录提示") = vbYes Then Set rg = ActiveCell rg = "目录"For x = 1 To Sheets.Count k = k + 1 rg.Offset(k) = Sheets(x).Name ActiveSheet.Hyperlinks.Add rg.Offset(k), "", Sheets(x).Name & "!A1" Next x MsgBox "目录已生成，感谢您的使用！", vbInformation + vbOKOnly, "成功生成目录提示"End IfEnd Sub
2、保存文件
关闭VBA编辑器，然后按F12另存为启用宏的工作簿。
二、使用方法
1、找到代码
打开制作的目录生成表格，工作表右键 -查看代码 – 点击模块。
2、生成目录
打开要生成目录的Excel文件，选取生成的单元格位置，再回到代码窗口，把光标放在代码中的任意位置，最后点一下小三角即可生成目录。
操作动画：
Ps：如果想操作更简单，给代码指定一个快捷键（开发工具 – 宏 – 选项 – 添加快捷键），然后文件另存为加载宏，再通过开发工具 – Excel加载宏启用它，以后只需要选取生成目录位置按快捷键即可。但生成目录不是经常性操作，所以直接打开代码执行的方法最经济实用。
微信扫一扫加关注，Office自学网官方微信公众号，
专注分享软件安装和视频教程，让你一号在手，办公无忧！
