一個表格中多個表合并計(jì)算
先從簡單的看起!在一個表格中合并計(jì)算多個表【數(shù)據(jù)】-【數(shù)據(jù)工具】-【合并計(jì)算】。
合并計(jì)算多個工作簿中的表格
方法同上,這個適用于少量表格。
大量表需要合并
這個我們可以用一下VBA,代碼如下:
潛水艇合并當(dāng)前工作簿下的所有工作表()
申請。屏幕更新=假
對于j=1至圖紙。數(shù)數(shù)
如果表(j ).命名活動工作表。名字然后
X=范圍(“A65536”).結(jié)束(xlUp).第1行
工作表(j)。使用范圍。復(fù)制單元格(十,1)
結(jié)束條件
然后
范圍(“B1”).挑選
申請。屏幕更新=真
‘ MsgBox ‘確定啦”!’ vbInformation ‘提示’
末端接頭
大量表格及表格中的表需要合并
代碼如下:
潛水艇合并當(dāng)前目錄下所有工作簿的全部工作表()
暗淡的我的路徑,我的名稱,awb名稱
將工作簿作為工作簿,工作簿作為字符串
變暗變長
將數(shù)字變長
將盒子變暗為字符串
申請。屏幕更新=假
我的路徑=活動工作簿。小路
我的名字=目錄(我的路徑\’ ‘* .xls’)
awb名稱=活動工作簿。名字
Num=0
當(dāng)我的名字為“時執(zhí)行
如果我的名字是”然后”
設(shè)置Wb=工作簿。打開(我的路徑\ ‘我的名字)
Num=Num 1
使用工作簿.活動工作表。單元格(.范圍(“B65536”).結(jié)束(xlUp).第2行,1)=左(我的名字,倫(我的名字)- 4)
對于G=1至圖紙。數(shù)數(shù)
Wb .工作表(G).使用范圍。副本。單元格(.范圍(“B65536”).結(jié)束(xlUp).第1行,1)
然后
WbN=WbN Chr(13) Wb .名字
Wb .關(guān)閉假
以.結(jié)束
結(jié)束條件
我的名字=目錄
環(huán)
范圍(“B1”).挑選
申請。屏幕更新=真
‘ MsgBox ‘共合并了’ Num ‘個工作薄下的全部工作表。如下* ” Chr(13)WBn,vbInformation “提示’
末端接頭
大量表格合并后求和計(jì)算
大量的數(shù)據(jù)在一個表格中,這個時候合并計(jì)算,我們可以用數(shù)據(jù)透視表,快速的搞定。