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