一个表格中多个表合并计算

先从简单的看起！在一个表格中合并计算多个表【数据】-【数据工具】-【合并计算】。

合并计算多个工作簿中的表格

方法同上，这个适用于少量表格。

大量表需要合并

这个我们可以用一下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 “提示’

末端接头

大量表格合并后求和计算

大量的数据在一个表格中，这个时候合并计算，我们可以用数据透视表，快速的搞定。

阅读全文