如何汇总多个格式相同的复杂 Excel

合并汇总多个相同格式 Excel 很常见,每次手工操作费时费力,而且有的 Excel 格式比较复杂又会增加汇总难度。

比如,每个月下属的各个分公司都会上报一个 Excel

..

每个分公司的 Excel 都包含相同的项目,格式也完全相同

..

现在要汇总(求和)红色 sheet 页的 6 个项目,将结果写入格式完全一样的汇总 Excel 中。

实现步骤:

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

for B1

=file(A1/A8).xlsopen()



9


for   [A2:A7]

for   [D2:D7].m(#B9)

=B8.xlscell(C9,B9)

10




=C1.xlscell(C9,B9)

11




=C1.xlscell(C9,B9;string(number(D9)+number(D10)))

12

=file("汇总表.xls").xlswrite(C1)




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

A2-D7 指定 6 个表要汇总的范围

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

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

通过这种方式可以应付不固定 Excel,无论是不同分公司,还是不同月份都能搞定。同时每个汇总表的统计范围均可维护(2-7 行),可以根据实际需要修改。

数据与脚本.zip