一键搞定！463个表格，制作目录以及返回目录超链接，并汇总每个分表的内容
这是一位粉丝的问题，一共有463个表格，要制作目录以及返回目录超链接，并汇总每个分表的内容。
你没看错，463个表格，而且还会继续增加。
每个分表格式一样，每个分表都做一个返回目录的超链接，再将余额、开票金额、未开票金额引用到目录这个表。
涉及到的隐私数据比较多，在截图说明的时候，我尽量不泄露关键数据，并把问题说明清楚。介绍完场景，接下来我就只用3个表说明，太多表实在不方便模拟。
最终效果：点汇总按钮，就制作了目录，并将数据引用过来，点表格名称可以链接到相应的分表，在分表有一个返回目录。
在开发工具，点VB进入后台，插入模块，将相关代码放进去。
代码主要分成3个功能，将表格的名称提取到a列，创建超链接，分别将f、h、i列最后的合计引用到b、c、d列。
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("L2"), Address:="", SubAddress:=Sheets("目录").Name & "!A1", TextToDisplay:="返回目录"
'分别将f、h、i列最后的合计引用到b、c、d列
Range("b" & i) = Sheets(i).Range("f60000").End(xlUp).Value
Range("c" & i) = Sheets(i).Range("h60000").End(xlUp).Value
Range("d" & i) = Sheets(i).Range("i60000").End(xlUp).Value
Next
MsgBox "报告卢子，提取完毕"
End Sub
这里再演示一遍，不通过按钮执行代码。
提取码：qhcu
没有什么是搞不定的，如果搞不定，只能证明你还需要学习。
推荐：一键生成目录（完善版）
通过4年的文章学习，从小白变成财务负责人，工作上的表格处理能力变得很强大。这也印证了当年说过的话，如果你能坚持看文章3-5年，你必然可以成为一个很厉害的人，如果除了看文章还报名VIP会员，那1年时间你就可以变得很厉害。
你跟卢子学了多久Excel了？
作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）