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)
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报。