一個表格中多個表合并計算

先從簡單的看起！在一個表格中合并計算多個表【數據】-【數據工具】-【合并計算】。

合并計算多個工作簿中的表格

方法同上，這個適用于少量表格。

大量表需要合并

這個我們可以用一下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 “提示’

末端接頭

大量表格合并后求和計算

大量的數據在一個表格中，這個時候合并計算，我們可以用數據透視表，快速的搞定。