日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)

作者:空紙飛機(jī)
鏈接:https://www.jianshu.com/p/9e1686f378a8
讓不懂編程的人了解VBA,讓大家輕松處理批量數(shù)據(jù) 。
各類辦公室文員在處理數(shù)據(jù)時(shí),可能經(jīng)常會(huì)遇到以下問題:
上級(jí)組織做了一個(gè)表格,分發(fā)給下屬單位,讓他們填好上交 。

Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


總部制作的分銷樣表
收集完之后,需要將提交的表單中的數(shù)據(jù)進(jìn)行累加,填入?yún)R總表中 。如果要填的數(shù)據(jù)很多,下屬單位數(shù)量不小,工作量就會(huì)特別大,特別容易出錯(cuò) 。
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


回收分行填寫的數(shù)據(jù)表 。
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


分公司填寫的樣本數(shù)據(jù)
但是如果我們用VBA寫一個(gè)宏代碼,我們可以很容易地解決這個(gè)問題 。當(dāng)然,這里不允許你自己寫 。我已經(jīng)寫好了 。你只需要復(fù)制并使用它 。另外,我已經(jīng)把備注寫得很清楚了 。
求解步驟:
【Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)】1 。創(chuàng)建一個(gè)新文件夾,并將空表保存為啟用宏的Excel文件 。
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


選擇啟用宏的工作簿作為文件類型 。
2 。在文件夾中新建一個(gè)文件夾,命名為“Data”,將所有恢復(fù)的數(shù)據(jù)文件存儲(chǔ)在其中 。
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


將恢復(fù)的數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)文件夾中,文件與匯總表并列 。
3 。打開匯總表Excel文件,單擊菜單中的-命令,在打開的對(duì)話框中輸入宏名“hz”并確認(rèn) 。
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


打開宏對(duì)話框
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


4 。在菜單中單擊,在打開的對(duì)話框中選擇宏名,然后單擊按鈕 。
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


5 。刪除打開窗口中的所有原始內(nèi)容,并將下面的內(nèi)容粘貼到編輯框中 。
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


5 。點(diǎn)擊該窗口中的按鈕,完成所有分行數(shù)據(jù)的自動(dòng)匯總,并將匯總數(shù)據(jù)填入?yún)R總表中的相應(yīng)區(qū)域 。
Excel中多表數(shù)據(jù)自動(dòng)累加匯總 excel怎么累加每日數(shù)據(jù)


匯總結(jié)果
注意:
1 。如果匯總后想再次修改宏代碼,可以通過菜單中的-命令瀏覽宏代碼 。
2 。根據(jù)備注,可以根據(jù)實(shí)際表格中數(shù)據(jù)區(qū)的位置和行數(shù)、列數(shù)修改相關(guān)參數(shù) 。
其中:
數(shù)組brr(1到3,1到4)表示數(shù)據(jù)區(qū)的行數(shù)和列數(shù),即有3行4列的數(shù)據(jù)需要匯總;
單元格區(qū)域[B3:E5]表示要匯總的數(shù)據(jù)位于該區(qū)域[B3:E5];
對(duì)于i = 1到3對(duì)于j = 1到4的循環(huán)意味著從要匯總的區(qū)域的第一行到第三行和第一列到第四列的累加 。
3 。整個(gè)代碼如下:(復(fù)制過去,稍加修改即可使用)
Sub hz()
Dim Fso,F(xiàn)ld,F(xiàn)l
Dim arr,brr(1到3,1到4),i%,j%
'定義變量和數(shù)組(數(shù)組大小由要匯總的數(shù)據(jù)區(qū)域中的行數(shù)和列數(shù)決定)
Set Fso = CreateObject(" Scripting 。文件系統(tǒng)對(duì)象”)

推薦閱讀