如上图： 我们平时登记员工的考勤数据的时候，会按照每页每页的登记，现在我们需要将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
是不是感觉一下方便了很多啊。
原创声明：文章发布于作者微信公众号：EXCEL函数与VBA实例，百家号：Excel，如有抄袭，责任必究。
excel学习库
excel表格_excel函数公式大全_execl从入门到精通
VBA一键快速处理多工作表数据汇总，你还在一页页复制粘贴吗？2024-04-25 11:48:55
在我们平常工作中应该会经常有碰到，将一张工作簿里面的很多页工作表的数据进行汇总，当然如果数据就只有两三页到时候，我们复制粘贴就可以了，但是当有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
是不是感觉一下方便了很多啊。
原创声明：文章发布于作者微信公众号：EXCEL函数与VBA实例，百家号：Excel，如有抄袭，责任必究。
如上图： 我们平时登记员工的考勤数据的时候，会按照每页每页的登记，现在我们需要将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
是不是感觉一下方便了很多啊。
原创声明：文章发布于作者微信公众号：EXCEL函数与VBA实例，百家号：Excel，如有抄袭，责任必究。
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
- 控制面板
- 网站分类
- 搜索
- 最新留言
-
- 文章归档
- 友情链接
Powered By Z-BlogPHP 1.7.3
ICP证:湘ICP备2021010693号-4