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单元格开始的区域合并计算到“汇总”表中
0
投稿猜你喜欢
怎么将多张图片拼接成一张大图？出去旅游的时候，想必大家都会拍许多照片留作纪念，但很多时候我们所拍的照片，会有很多大同小异的，但又不舍得删掉。- ppt怎么做幻灯片？要学会PPT首先要学会做图表，PPT图表可以说是PPT设计不可或缺的一部分。那么如何做出一个清爽大气，偶尔还带有一些新意
- islp2sta.exe是Cisco公司无线网络相关程序进程文件： islp2sta or islp2sta.exe 进程名称： Islp2
- Win7如何打开组策略编辑器？组策略的功能十分强大，电脑管理员可以对其进行禁止运行指定程序、锁定注册表编辑器、阻止访问提示符、禁止修改系统还
- 我们都知道Win10系统都有自己默认的字体，但是有时候我们在使用Win0系统的时候会遇到win10字体间距比较大，很多用户就想要修改默认字体
- 今天老板让我把带有小数点的表格进行整理，老板说把数据整理成保留两位小数（默认为四舍五入），老板还要整理成一种不四舍五入的数据。好的老板马上整
- 整个U盘启动里最关键的一步就是设置U盘启动了，本教程内只是以特定型号的电脑为例进行演示，鉴于各种电脑不同BIOS设置U盘启动各有差异，所以如
- Win7太卡了怎么重装？Win7电脑很卡如何重装系统？如果只是卡顿，那么代表它还是可以使用的，这种时候大家可以下载一键重装系统软件来帮助自己
- 使用IF函数和高级筛选可以快速的比较两列的内容是否相同，相同的会进行筛选方便查看结果。下面随小编一起看看具体的操作步骤吧。excel表格对比
- 在Word文本编辑中，为了文本整体的美观性，我们会对各栏的长度及高度进行调整。Word如何平均各栏的长度和高度？下面小编为大家带来详细的设置
- win10系统默认网关是什么意思？默认网关就是我们现在的电脑主机使用的网关。有朋友在使用Win10系统运行Internet连接的时候出现提示
- 小丸工具箱怎么转mp4？小丸工具箱基于x264、neroaac、mp4box等内核，一键导入视频压制，压制成H264+AAC视频，用于处理音
- 我们在编辑文档时会适当加入一些图片以丰富文档内容，但有时候在编写好的文档内插入图片时会将原先排版好的文档内容打乱，调整起来很是麻烦，今天小编
- excel2013每次打开定位到指定文件夹的方法：设置默认打开定位文件夹步骤1：启动Excel并创建一个空白工作簿，在“文件”选项卡中选择“
- 修改电脑配置，或是更改程序设置很多时候都需要通过修改注册表来完成，可以说注册表是一个十分万能的工具，但在Win10系统下，有些用户存在一些疑
- Win8/Win8.1系统默认使用IE浏览器时，才能正常使用Modern版IE浏览器，针对IE11闪退问题，下面为大家提供几种不错的解决方法
- csgo是以cs为原型而重新制作的新作，一登场就被无数的玩家追捧，画质特性也比老版本强了很多，许多配置低的用户想通过控制面板设置流畅那么该怎
- 360提醒您注册企业安全云怎么关闭？近期有用户反映电脑上的360卫士老是会出现下图弹窗，十分影响使用体验，那么有没有什么方法可以解决这一问题
- 现在市面上很多新电脑预装的系统都是Win10系统，就会出现有用户在新买电脑后，会将原本的系统改为其他的系统，例如有用户想要将神舟战神z7Wi
- 在获得2019 Win10更新十一月版（v1909）的升级推送后，不少网友都选择了升级。不过，也有一些游戏玩家在升级一段时间后发现，玩游戏的
