ExcelVBA 將N個工作簿指定區(qū)域匯總
網(wǎng)友提問:
網(wǎng)友給我一個文件夾

我們把公司匯總.xlsx拿出文件夾 放在任意位置均可

先看一下這3個工作簿



每個分表與總表位置是對應的,只是想把數(shù)據(jù)相加。那這就沒有難度了。
回答網(wǎng)友問題:
在 Excel基礎篇里我們就介紹過,原始區(qū)域有一些數(shù),用另一個區(qū)域與這個區(qū)域相加的方法
就是復制右邊區(qū)域的數(shù)據(jù),選擇原始區(qū)域第1個單元格,右鍵~選項粘貼~相加

在VBA第二季里我們也講了相關方法

需要用到的知識還有一個FSO對象或者ExcelVBA第二季講的DIR函數(shù),如下圖
我們使用FSO對象遍歷每個文件

我們打開那個? ?公司匯總.xlsx? 在VBE編譯器中寫代碼,然后運行

代碼如下:你只需要改支區(qū)域的范圍
不算注釋與sub ...end sub? ?9行代碼搞定
PS:如果每個分表中有N多Sheet ,需要使用For Each遍歷工作表,具體是指定某個工作表還是全部工作表都需要,取決于你的需求。

ExcelVBA教程:https://www.bilibili.com/video/BV1rt4y1a72y
標簽: