万向娱乐
你的位置:万向娱乐 > 关于万向娱乐 >

集齐5种自动生成目录方法,总有一个适合你!


发布日期:2024-07-22 07:02    点击次数:198

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)

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



Powered by 万向娱乐 @2013-2022 RSS地图 HTML地图