如何匯總多個格式相同的復雜 Excel


合並匯總多個相同格式 Excel 很常見,每次手工操作費時費力,而且有的 Excel 格式比較復雜又會增加匯總難度。

比如,每個月下屬的各個分公司都會上報一個 Excel

 

 

 

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

 

 

 

現在要匯總(求和)紅色 sheet 頁的 6 個項目,將結果寫入格式完全一樣的匯總 Excel 中。

實現步驟:

  1. 首先准備一個匯總 Excel,除數據部分為空外,其他統計項、格式與被匯總的 Excel 完全相同

 

 

 

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

 

 

 

腳本列出來看方便些:

  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


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM