您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA进行多表合并计算一例

时间:2013-12-10 整理:docExcel.net

在Excel中,用数据透视表可以轻松进行多个区域的数据合并计算。但当区域较多时,要在数据透视表向导中多次选择区域,稍显繁琐。如果需要合并的工作表较多,可以用下面的VBA代码来快速合并数据。区域的大小可以不同,各行或列的品种可以重复,但要求工作簿中各工作表中的数据存放在相同的位置。如下图为工作簿中某两个工作表中的数据,区域的起始位置都是E5单元格:

方法是:将要存放合并数据的工作表命名为“汇总”,删除工作簿中没有合并数据的工作表,各工作表中要合并的数据右侧和下边没有其他数据。然后在VBA编辑器中运行下面的代码:

Sub Summary()
Worksheets("汇总").[e5].CurrentRegion.ClearContents
On Error Resume Next

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
  If sh.Name <> "汇总" Then
   With sh
'获取工作表中数据区域的行数
i = .[e65536].End(xlUp).Row
'获取工作表中数据区域的列数
j = .[iv5].End(xlToLeft).Column
'将各工作表区域按R1C1样式存入tempstr字符串中,各区域之间用","隔开
tempstr = tempstr & "'" & sh.Name & "'!R5C5:R" & i & "C" & j & ","
   End With
  End If
Next
'清除tempstr字符串中最后一个","
tempstr = Left$(tempstr, Len(tempstr) - 1)
'将tempstr字符串中的各区域名存入一维数组arr中
arr = Split(tempstr, ",")

'将各个区域的数据合并计算到"汇总"表
Worksheets("汇总").[e5].Consolidate arr, xlSum, True, True
Worksheets("汇总").[e5] = Sheet1.[e5]
End Sub

上述代码将工作簿中除“汇总”表以外的所有工作表中从E5单元格开始的区域合并计算到“汇总”表中。

单击右边文件名下载示例文件:VBA多表合并示例.xls

VBA对多个工作簿进行合并计算求和一例 问题:VBA对多个工作簿进行合并计算求和一例
回答:Excel中的合并计算可以对多个工作表的对应项目进行求和、求平均值等计算,但如果需要合并计算的工作表较多,特别是这些工作表位于不同的工作簿内时,逐一选择数据源显得较为繁琐。用VBA中的Range.Consolidate方法可以快速地...
如何在Excel2007中使用合并计算功能 问题:如何在Excel2007中使用合并计算功能
回答:...且很容易出错,有没有方便快捷一些的方法呢?当然有!合并计算功能就可以把多个格式相同的表格数据进行合并计算,这里Excel办公网小编就为大家分享如何在Excel2007中使用合并计算功能。 一,在同一工作簿下使用合并计算...
用VBA进行多表合并计算一例 问题:用VBA进行多表合并计算一例
回答:在Excel中,用数据透视表可以轻松进行多个区域的数据合并计算。但当区域较多时,要在数据透视表向导中多次选择区域,稍显繁琐。如果需要合并的工作表较多,可以用下面的VBA代码来快速合并数据。区域的大小可以不同,各...
在excel中合并计算中为什么没有求差 问题:在excel中合并计算中为什么没有求差,如图
回答:可通过将被 减数表的数据乘以负一进行求和,如图:在空白单元格输入-1--》复制该单元格,选中被减数区域--》右击--》”选择性粘贴“--》”乘“,如图:--》”确定“,再合并计...
Excel2013中怎样对合并单元格进行运算 问题:Excel2013中怎样对合并单元格进行运算
回答:我们打开一张Excel表格,发现有许多合并的单元格,如何对这些合并单元格进行数据运算呢?直接调用,好像得不到正确的结果。下面,本节课程就来介绍一下Excel中对合并单元格进行运算操作的方法。 我粗略的建立了一个商品...
Excel2013中利用Lookup函数对合并单元格进行运算 问题:Excel2013中利用Lookup函数对合并单元格进行运算
回答:Excel表格中,几乎都会用到合并单元格,单元格合并了,该如何进行运算呢?或许很多新手都有这样的疑问,其实还是一个道理,下面,我就教大家怎么使用Lookup函数对合并单元格进行数据运算。 案例教学 ①启动Excel2013表格,...
相关推荐: