【原】集齐5种自动生成目录方法，总有一个适合你！

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","打开")

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

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