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单元格开始的区域合并计算到“汇总”表中
0
投稿猜你喜欢
历经 5 个测试版以及两个 RC 版，在iOS15.5正式版发布65天后，iOS 15.6 正式版终于来了。有业内人士 表示，iOS 15.- 先说一下如果要使用自动生成目录功能，需要对文章中对应的标题设置成相应的标题格式。1、在此以Word 2010为例进行演示。正文内容见下图：
- 我们在对Excel表格进行操作的时候，经常发现有超级链接。但如果因为某种原因不想保留超级链接，就需要手动进行删除。如果要是只删除一个超级链接
- WPS文字怎么插入结构图操作步骤1、打开WPS文字，选择视图--工具栏--绘图，把绘图工具栏调出到界面上。点击其中的横向文本框选项，完成如下
- 1.打开Excel表格，选中需要修改数字格式的内容，接着点击工具栏的“设置单元格格式-数字”2.常规的几种数字格式满足不了我们的需求就可以选
- 我们在word中插入图片以后，如果图片比较单调，我们可以对插入的图片设置图片样式效果，如图片的形状、图片边框及图片效果等，word2007设
- 把图片或扫描文件上的转到Word上，这个想法不错，只不过实现起来比较费劲，网上有很多这种转换软件，不是识别率不高，就是不好使。那么下面就由小
- 有的时候我们在制作excel表格的时候，要在页眉或页脚添加图片,以更好的推广自己,或者使得自己的文件更个性化，但这些图片时如何插入的呢?下面
- 有些时候，图片文字非常的多，一个一个敲字真的是既费时又费力，下面通过本文给大家介绍纸质文字转换成电子版文字的技巧，感兴趣的朋友一起学习吧不用
- 在数据清单中，如果需要查看一些特定数据，就要对数据清单进行筛选，即从数据清单中选出符合条件的数据，将其显示在excel工作表中，而将不符合条
- excel2013行列转换教程：行列转换步骤1：打开Excel2013，新建空白文档，在第一行的单元格里输入一些内容。行列转换步骤2：选中这
- 有些文档上比较机密不想让外人知道，怎么样才把word文档加密呢?对于新手来说还是有一定难度，怎么办?今天就由小编教大家解决这个问题，欢迎大家
- 在excel表格中制作了一张表单，想要在表单中求和计算，应该怎么做?下面随小编一起来看看吧。excel表格求和的步骤打一个excel表格表格
- 在日常工作中许多朋友在制作一些数据表格的时候经常会用到公式运算，其中包括了将多个表格中的数据相加求和 在日常工作中许多朋友在制作一
- 在使用win10系统的过程中，会有用户的反馈。当无法打开win10计算机并且显示蓝屏代码0x000000ed时，如何处理win10蓝屏？事实
- 在excel中，百分比是如何计算的呢。下面让小编为你带来excel表格应用百分比函数的方法。excel百分比函数使用方法如下：如图A1、A2
- 分离？怎么个分离？是这样理解,上面那个图是堆积柱形图，分离两个堆积柱形？ 所以这样考虑的，在“成交面积”和“成交套数”中插入一个辅
- 当我们使用win10操作系统的时候，一些同伴希望安装最新的操作系统win101903。因此，除了在系统设置中进行更新和安全的直接升级外，该版
- Excel是当今社会最流行用的办公软件之一，Excel可以用于数据的整理、分析、对比。可以更直观的看到数据的变化情况，而有很多时候需要快速删
- word2010怎么绘制明信片？word2010中想要绘制一个明信片的背面图片，该怎么绘制呢？下面我们就来看看详细的教程，很简单，需要的朋友
