时间：2020-11-17 17:41作者：admin来源：未知人气：282我要评论(0)
在整理数据的时候，分方便数据整理我们会按照月份或者日期将数据进行分类整理，如下图的我们将每个月的数据单独整理出来。
如上图：我们有第一个季度1-3月份数据分别整理，现在我们需要将每个月的数据全部汇总到第一季度的工作表中去。上图只有3个月的数据如果要汇总可以单独负责粘贴就可以了，但实际工作中我们需要汇总的表格可能有许多，这个时候复制粘贴就会显得非常耗时没有效率。
下面我们就来学一下一个5秒就可以汇总全部表格数据的方法。如下图所示：
操作方法：
1、按ALT+F11，进入代码编辑窗口，粘贴输入以下代码即可；
2、代码窗口点击运行代码将自动汇总数据。
代码如下：
Sub 多表合并()
Dim i%, rs%, rss%, st As Worksheet, ast As Worksheet
Set zst = Sheet4 '将汇总工作表第一季度定义为变量zst
For i = 1 To 3
Set st = Sheets(i & "月") '将1-3月的工作表定义为变量st
rs = st.UsedRange.Rows.Count '计算1-3月每个表的最后一行
rss = zst.UsedRange.Rows.Count + 1 '计算第一季度工作表的最后一行的下一行
st.Range("A2:B" & rs).Copy Cells(rss, 1) '复制1月、2月、3月每个工作表的数据到第一季度的汇总表中
Cells(rss, 3).Resize(rs - 1) = i & "月" '将1-3月工作表的工作吗写入到汇总表对应的月份当中
Next
End Sub
注意点：
对象变量进行赋值时需要用set。
现在你学会如何5秒钟汇总N多表格数据了吗？
相关阅读 Excel表格数据设置到期自动销毁的方法Excel数据分列的详细使用方法Excel数字乱码怎么办？这样处理1秒解决，完美！Excel办公小技巧，全学会了让你的效率一秒提升！如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法，最后一种效率最高excel如何将阿拉伯数字快速转换为中文大小写格式？excel如何利用公式快速在表格中批量输入五角星的方法如何利用Excel的强大抠图功能，简单2步抠出透明手写艺术签名！分享Excel中的一个神操作，掌握后可快速提高工作效率！
热门文章
excel柏拉图折线如何从0开始
Excel 如何将默认粘贴模式改为匹配目标格式
Excel表格一格分两格的方法图解教程
excel 如何使用数据透视表（Pivot Table）
最新文章
Excel表格数据设置到期自动销毁的方法
Excel数据分列的详细使用方法
Excel数字乱码怎么办？这样处理1秒解决，完美！Excel办公小技巧，全学会了让你的效率一秒提升！如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法，最后一种效率最高
人气排行 excel柏拉图折线如何从0开始Excel 如何将默认粘贴模式改为匹配目标格式Excel表格一格分两格的方法图解教程excel 如何使用数据透视表（Pivot Table）Excel中如何插入PDF文件Excel表格在一页A4纸上打印不下去，怎么办？excel保存了却不见了怎么办excel如何将两列数据一一对应
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>