集齐6种自动生成目录方法，总有一个适合你！（超全面）

1.宏表函数

Step 01 点公式，定义名称，名称写目录，引用位置输入下面的公式，确定。

=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())

图片

Step 02 在单元格输入公式，下拉就可以。

=IFERROR(HYPERLINK(目录&"!A1",MID(目录,FIND("]",目录)+1,99)),"")

图片

Step 03 使用宏表函数，跟使用VBA（宏）一样，都需要另存为启用宏的工作簿。

图片

2.PQ

Step 01 新建一个工作簿，单击数据→新建查询→从文件→从工作簿。

图片

PQ每个版本名称都略有差异，这是2019的界面。

图片

Step 02 浏览到指定的工作簿，单击导入。

图片

Step 03 单击工作簿这样就默认将所有工作表选中，再单击编辑。

图片

Step 04 删除不需要的列，关闭并上载就完成了导入工作表名称。

图片

Step 05 设置超链接公式，这样就完成了。

=HYPERLINK("#"&[@Name]&"!A1","打开")

图片

[@Name]其实只要引用表格的单元格自然就会出现，也可以直接手工写实际单元格A2。

3.智能工具箱

这是WPS特有的功能，表格合并拆分，数据对比等等好用的功能都是一键生成。现在只是说明目录这个功能。

图片

点目录，创建表格目录，选择目录的保存位置，还有返回按钮的位置。

图片

目录表跟分表都有超级链接，点击就可以跳转。

图片

4.VBA

VBA其实就是将WPS智能工具箱用代码的形式体现出来而已。

点下按钮，瞬间就生成目录。目录表跟分表都有超级链接，就不做演示。

图片

在使用的时候有一个注意点，需要将第一个工作表的名称改成目录。

图片

源代码：

Sub 目录()

    Dim i As Integer

        For i = 2 To Sheets.Count

            '将表格的名称提取到a列

            Range("a" & i) = Sheets(i).Name

            '创建超链接

            Range("a" & i).Select

            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

            "'" & Sheets(i).Name & "'!a1", TextToDisplay:=Sheets(i).Name

            Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("L1"), Address:="", SubAddress:=Sheets("目录").Name & "!A1", TextToDisplay:="返回目录"

        Next

End Sub

5.微信截图

用微信截图Alt+A，然后提取全部文字。

图片

选择全部文字，复制到Excel，工作表名称就提取出来了。

图片

如果需要超链接到分表，在隔壁列设置公式即可。=HYPERLINK("#"&A2&"!a1","打开")

图片

6.新函数SHEETSNAME

假如你在函数这个工作表输入公式，就可以获得当前工作表名称。

=SHEETSNAME(A1,1)

图片

同理，在透视表这个工作表输入，也可以获取当前名称。

图片

更神奇的还在后面，A1去掉，直接就可以获取全部工作表名称。

=SHEETSNAME(,1)

图片

1代表在同一列生成目录，如果要在同一行生成目录，用0。

=SHEETSNAME(,0)

图片

当然，生成目录是为了创建超级链接，点一下就到相应的工作表。

=HYPERLINK("#'"&A1&"'!A1",">>打开<<")

图片

分表要返回目录也可以，选择第2个工作表，按住Shift键，选择最后1个工作表，这样相当于选中全部分表，在G1输入公式，这样就相当于全部分表都输入。

=HYPERLINK("#'目录'!A1",">>返回目录<<")

图片

条条道路通罗马，适合自己的就是好方法。

图片

作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。