在整理数据的时候，分方便数据整理我们会按照月份或者日期将数据进行分类整理，如下图的我们将每个月的数据单独整理出来。

如上图：我们有第一个季度1-3月份数据分别整理，现在我们需要将每个月的数据全部汇总到第一季度的工作表中去。上图只有3个月的数据如果要汇总可以单独负责粘贴就可以了，但实际工作中我们需要汇总的表格可能有许多，这个时候复制粘贴就会显得非常耗时没有效率。

下面我们就来学一下一个5秒就可以汇总全部表格数据的方法。如下图所示：

操作方法：

1、按ALT+F11，进入代码编辑窗口，粘贴输入以下代码即可；

代码如下：

Sub多表合并()

Dimi%,rs%,rss%,stAsWorksheet,astAsWorksheet

Setzst=Sheet4'将汇总工作表第一季度定义为变量zst

Fori=1To3

Setst=Sheets(i"月")'将1-3月的工作表定义为变量st

rs='计算1-3月每个表的最后一行

rss=+1'计算第一季度工作表的最后一行的下一行

("A2:B"rs).CopyCells(rss,1)'复制1月、2月、3月每个工作表的数据到第一季度的汇总表中

Cells(rss,3).Resize(rs-1)=i"月"'将1-3月工作表的工作吗写入到汇总表对应的月份当中

Next

Sub

注意点：

对象变量进行赋值时需要用set。

现在你学会如何5秒钟汇总N多表格数据了吗？