excel利用VBA进行多表合并计算一例
时间:2022-06-28 18:26:18
在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单元格开始的区域合并计算到“汇总”表中
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
苹果A15处理器怎么样?相较于A14有多大提升?
![](https://img.aspxhome.com/file/2023/1/45701_0s.jpg)
excel如何取消合并后上万条空白单元格填充
![](https://img.aspxhome.com/file/2023/7/a140817_0s.jpg)
Win10 1909怎么以管理员身份运行PowerShell?以管理员身份运行PowerShell方法简述
![](https://img.aspxhome.com/file/2023/2/48802_0s.jpg)
在Excel中给框选的单元格添加颜色看不到网格线的解决方法
![](https://img.aspxhome.com/file/2023/7/41537_0s.jpg)
Win10系统时间无法修改怎么办?Win10系统时间无法修改的解决方法
![](https://img.aspxhome.com/file/2023/0/48670_0s.jpg)
excel表格输入值非法的解决教程
Excel表格向上,中,向下取整函数
如何关闭Word的审阅修订显示功能 word审阅修订显示功能如何关闭
![](https://img.aspxhome.com/file/2023/7/33457_0s.jpg)
win10电脑显存怎么看?win10电脑查看显存的操作方法
![](https://img.aspxhome.com/file/2023/8/47428_0s.png)
在Word2010中取消显示Office剪贴板图标
![](https://img.aspxhome.com/file/2023/6/22236_0s.jpg)
如何在Word2010公式中添加希腊字母符号
![](https://img.aspxhome.com/file/2023/3/29563_0s.jpg)
word 绘图工具在哪 word 添加绘图工具的方法
![](https://img.aspxhome.com/file/2023/3/33243_0s.png)
怎么解决Word2003文档打不开的问题
![](https://img.aspxhome.com/file/2023/1/29821_0s.gif)
Word 如何设置文档中表格的样式
![](https://img.aspxhome.com/file/2023/7/33587_0s.jpg)
3种方法来用Excel制作发票
![](https://img.aspxhome.com/file/2023/9/a141889_0s.jpg)
WORD中怎样设置字体长宽
2021最新office365激活码推荐
![](https://img.aspxhome.com/file/2023/6/14996_1s.jpg)
Excel中的INDEX和MATCH函数语法的使用教程
![](https://img.aspxhome.com/file/2023/1/42211_0s.jpg)
excel表格怎么用函数进行区间统计
Win10电脑无故卡死怎么解决?Win10电脑无故卡死怎么解决方法
![](https://img.aspxhome.com/file/2023/2/50192_0s.jpg)