合并报表太难了！我，看了30秒，放弃……
点击上方蓝字
「Excel不加班」
关注
，
看下一篇
文章图片
没看之前的想法 ， 关于合并报表没做1000次 ， 起码也做了800次 ， 有何难的？
下面部分是猜想的 ， 最后卢子再发实际的 。
有好多个分表 ， 格式相同 。
文章图片
要对每个表的金额进行求和 。
=SUM(INDIRECT(A2&"!f:f"))
文章图片
这有何难的 ， 瞬间搞定 。 可惜 ， 并不是这样合并 。
哦 ， 那就是将格式相同的分表合并到一个表中 。
文章图片
使用代码：
Sub 合并()
Dim sht As Worksheet, arr
Sheets(1).Range("a1:z60000").Delete
Sheets(2).Range("a1:z1").Copy Sheets(1).Range("a1")
For Each sht In Worksheets
If sht.Name <> "合并报表" Then
i = sht.Range("b65536").End(xlUp).Row
j = Sheets("合并报表").Range("b65536").End(3).Row + 1
arr = sht.Range("a2:z" & i)
Sheets("合并报表").Range("a" & j).Resize(UBound(arr), 26) = arr
End If
Next
End Sub
可惜 ， 也不是这种合并 。
哦 ， 那估计是合并在一个表 ， 再用透视表统计 。
文章图片
也不是 ， 让我们来看下实际的 。
会计的合并报表原来长这样子 ， 有上百张工作表 ， 每个工作表格式都不一样 ， 每个表的计算规则也完全不一样 。
文章图片
关于这个 ， 光有牛逼的技能是没用的 ， 你还要有超强大的内心 ， 还要有超级空闲的时间 。
如果有这种合并报表 ， 安心加班吧 ， 心疼3秒钟……
618优惠活动
卢子推出了2个优惠套餐 ， 都是299
元 ， 报名还赠送1本书（透视表或综合任选1本） 。
推荐阅读
![[情系今生]俺送一枚金戒指，次日看到小姑子的手，俺加两千块红包，婆婆过寿](https://imgcdn.toutiaoyule.com/20200401/20200401163704430623a_t.jpeg)
- 朗目李总监|2020年石家庄房产趋势稳定，房企想涨价太难了！
- 数据|2020年加州大学录取数据公开！亚洲学生太难了！
- 大鱼观|中山和佛山合并的可能性有多大，几年内能实现
- 大鱼观|为了更好的发展，中山和珠海合并势在必行
- 杨紫|《青簪行》杀青演技最好的却是双方粉丝，杨紫吴亦凡太难！
- 驾驶人|#奋进3号#因自觉考大车驾证太难男子竟伪造A2型机动车驾驶证上路
- 推荐|白宫发言人甩锅秘籍曝光，可给今天的美国“洗地”太难
- 比亚迪|还没火就急着割韭菜，网曝乱收费遭抵制，比亚迪汉吃相太难看？
- 大鱼观|如果株洲和湘潭合并成功，行政中心放在哪里最合适
- 教育|无锡中小学教师资格证认定公告(上下半年合并认定)