在我们平常工作中应该会经常有碰到，将一张工作簿里面的很多页工作表的数据进行汇总，当然如果数据就只有两三页到时候，我们复制粘贴就可以了，但是当有N多工作表页面的时候，这个时候复制粘贴就是一个很大的工程。今天教大家如何用vba代码，一键汇总多工作表数据。
一、问题场景：
如上图： 我们平时登记员工的考勤数据的时候，会按照每页每页的登记，现在我们需要将3月1日-3月4日每一页的这些数据汇总到一张表上面去。这么几张的数据我们复制粘贴速度也是不慢，但是当出现整个月数据的时候，这样就不行了，下面就来看看怎么用VBA一键处理。
二、VBA一键数据汇总：
内容讲解：通过用VBA代码将每一页的数据直接汇总到汇总页。
操作方法：按ALT F11或者点击工作表邮件，查看代码，进入代码编辑窗口，粘贴代码即可。
代码讲解：
Sub 工作簿合并()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(0, 0)
Next
End Sub
效果图：
现在看数据汇总是不是感觉一下方便了很多啊。
更多技巧：,
