excel利用VBA进行多表合并计算实例教程

Excel利用VBA进行多表合并计算实例教程

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

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

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

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

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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。