excel利用VBA进行多表合并计算实例教程
时间:2023-03-15 15:35:06
在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)
猜你喜欢
Win10黑盒怎么超频?黑盒超频的方法
![](https://img.aspxhome.com/file/2023/26/a226117_0s.jpg)
WPS表格 对打印内容进行分页 动画教程
win10桌面假死的根治方法
![](https://img.aspxhome.com/file/2023/4/a306615_0s.png)
Win7玩游戏出现Fata lerror关不掉怎么办?
![](https://img.aspxhome.com/file/2023/26/a228502_0s.jpg)
通达信证券软件如何进行选股?通达信证券软件进行选股的操作步骤
![](https://img.aspxhome.com/file/2023/7/a332314_0s.jpg)
ServiceLayer.exe - ServiceLayer是什么进程 有什么用
百度云传输记录删除了哪里可以找回来?
![](https://img.aspxhome.com/file/2023/30/a266748_0s.jpg)
Word2007快速编辑四则运算的文稿
![](https://img.aspxhome.com/file/2023/3/30393_0s.jpg)
MAC下如何让QuickLook查看文件时能选择和复制文字
![](https://img.aspxhome.com/file/2023/3/a216583_0s.jpg)
在Win7系统中如何设置在打开窗口时总是显示菜单栏
![](https://img.aspxhome.com/file/2023/29/a258248_0s.jpg)
怎么关闭Win11大小写提示图标?Win11大小写提示图标关闭方法
![](https://img.aspxhome.com/file/2023/28/a239946_0s.jpg)
网易有爱如何改提示音?更换测试DBM语音的方法
![](https://img.aspxhome.com/file/2023/7/a332187_0s.jpg)
wps2013行距怎么设置
WPS文本使用标题行重复功能对跨页标题进行排序
![](https://img.aspxhome.com/file/2023/1/a169651_0s.jpg)
Nike Run Club身高体重怎么填_Nike Run Club身高体重填写详细介绍
![](https://img.aspxhome.com/file/2023/4/a310535_0s.jpg)
排名函数RANK和SUMPRODUCT
![](https://img.aspxhome.com/file/2023/9/a157049_0s.gif)
将WPS演示文档转换成Flash文件
Excel2007二分.四分编辑界面的方法
如何使用WPS word快速制作组织架构图
![](https://img.aspxhome.com/file/2023/7/a185527_0s.jpg)
苹果Mac电脑打不开软件安装提示来自身份不明的开发者的解决方法图文教程
![](https://img.aspxhome.com/file/2023/1/a214721_0s.jpg)