合並匯總多個相同格式 Excel 很常見,每次手工操作費時費力,而且有的 Excel 格式比較復雜又會增加匯總難度。
比如,每個月下屬的各個分公司都會上報一個 Excel

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

現在要匯總(求和)紅色 sheet 頁的 6 個項目,將結果寫入格式完全一樣的匯總 Excel 中。
實現步驟:
- 首先准備一個匯總 Excel,除數據部分為空外,其他統計項、格式與被匯總的 Excel 完全相同

- 編寫集算器腳本(可以到潤乾官網下載,用職場版,首次運行時需要加載授權,同時下載一個免費的授權就行)

腳本列出來看方便些:
| 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 行),可以根據實際需要修改。
