如何合并汇总多个固定格式的报表

现在要每个月合并多个地区上报的 Excel,每个 Excel 都包含多 sheet。将合并汇总结果保存到新 Excel 中,格式保持不变。

各地 Excel 内容如下,需要将多个 sheet 数据都汇总(求和):

..

实现步骤:

1. 首先准备一个汇总 Excel,除数据部分为空外,其他统计项、格式与被汇总的 Excel 完全相同

2. 编写集算器脚本(可以到润乾官网下载,用职场版,首次运行时需要加载授权,同时下载一个免费的授权就行)

..

脚本列出来看方便些:


A B C D
1 D:/ 汇总 Excel/ =directory(A1) =file("汇总表.xls").xlsopen()
2 资产负债表 =to(4,53) [C,D,G,H] =C2.(B2.(C2.~/~)).conj()
3 利润表 =to(4,32) [C,D,E] =C3.(B3.(C3.~/~)).conj()
4 销售费用表 =to(4,24) [C,D,E] =C4.(B4.(C4.~/~)).conj()
5 管理费用表 =to(4,35) [C,D,E] =C5.(B5.(C5.~/~)).conj()
6 应上缴应弥补款项表 =to(4,32) [C,F] =C6.(B6.(C6.~/~)).conj()
7 现金流量表 =to(4,43) [C,D] =C7.(B7.(C7.~/~)).conj()
8 快报 =to(2,47) [C,D,E,F,G] =C8.(B8.(C8.~/~)).conj()
9 for B1 =file(A1/A9).xlsopen()
10
for [A2:A7] for [D2:D7].m(#B10) =B9.xlscell(C10,B10)
11


=C1.xlscell(C10,B10)
12


=C1.xlscell(C10,B10;string(number(D10)+number(D11)))
13 =file("38汇总表.xls").xlswrite(C1)

B1 列出目录下各个要汇总的 Excel

A2-D8 指定 7 个表要汇总的范围

A9-D12 循环每个分公司 Excel,通过 xlscell 函数取得要汇总的数值(D10),同时取出汇总表对应项目的值(D11),然后累加后将其写回汇总表(D12)

A13 最后将汇总后数据输出到汇总表.xls 中