【原】一键搞定！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

没有什么是搞不定的，如果搞不定，只能证明你还需要学习。

推荐：一键生成目录（完善版）

上篇：以最快的速度制作一份Excel出货管理表

通过4年的文章学习，从小白变成财务负责人，工作上的表格处理能力变得很强大。这也印证了当年说过的话，如果你能坚持看文章3-5年，你必然可以成为一个很厉害的人，如果除了看文章还报名VIP会员，那1年时间你就可以变得很厉害。

你跟卢子学了多久Excel了？

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