【原】太高效了！一键制作会跳转的工作表目录

你好，我是刘卓。欢迎来到我的公号，excel函数解析。在工作中，有时候工作表比较多时，为了快速跳转到我们所需的工作表，可以考虑制作一个工作表目录。

今天就来分享一段代码，只需运行一下，瞬间就能生成工作表目录。就算你看不懂，也没关系，可以先拿去用下。说不定用完后，就想学了。

如下图所示，有好多个工作表，其中第一个工作表是要制作目录的工作表。在vbe编辑器的模块中，写好代码后。在“目录"工作表中插入一个按钮或图片，将代码赋给按钮，点击一下按钮即可生成工作表目录。

供观看的代码如下：

供复制的代码如下：

Sub 制作工作表目录() Dim i As Integer, sht As Worksheet, rng As Range Worksheets("目录").[a2:b9999].ClearContents i = 1 For Each sht In Worksheets If sht.Name <> "目录" Then Cells(i + 1, "a") = i Set rng = Cells(i + 1, "b") ActiveSheet.Hyperlinks.Add anchor:=rng, Address:="", _ SubAddress:="'" & sht.Name & "'!a1", TextToDisplay:=sht.Name sht.Hyperlinks.Add anchor:=sht.[e1], Address:="", SubAddress:= _ "目录!a1", TextToDisplay:="返回目录" i = i + 1 End If NextEnd Sub

本来还打算写下用函数制作工作表目录的方法，实在是没有那么多时间和精力，也不想写了。

而且之前我也分享过用函数制作目录的方法，我翻回去看了下，觉得之前写的也挺好的，想学函数方法的小伙伴可以看《用hyperlink制作会跳转的工作表目录》这篇文章。

文件链接：

https://pan.baidu.com/s/1t2xudnXMmYvLY-2h4TiZAw

提取码：iqcj