1.宏表函数

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

图片

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

图片

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.微信截图

图片

图片

图片

6.新函数SHEETSNAME

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

图片

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

图片

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

图片

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

图片

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

图片

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

图片

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

图片

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