批量合并Excel工作薄中所有相同格式工作表为一个工作表

哈雷
2019-05-28
来源:巨盒创意

关注引导.gif

日常工作中我们可能要将excel工作薄中的多个相同格式工作表合并为一个工作表,一般我们是一个一个的复制粘贴,如果数据量很大时,是一件非常麻烦的事情,下面给大家介绍一个十分简单的方法,几秒钟实现我们的目的!

1、文件>>   选项>> 信任中心>> 点击“信任中心设置”按钮>> 宏设置>> 选中“启用所有宏”点击“确定”按钮。   // 要执行VB代码必须先启用宏设置。



2、将所有工作表合并或复制移动到一个工作薄文件,并整理好格式及其次序。新建数据合并表,右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境;




3、“代码窗口”复制粘贴以下代码,按下F5快捷键执行这段代码或者在菜单中单击“运行子过程/用户窗体”命令>>合并完成,将所有工作表合并到“数据合并”工作表中。

Sub 工作表合并()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1,   0)
Next

End Sub

关注巨盒创意微信公众号,免费学习更多精品教程,高效、便捷办公。

巨盒创意个性二维码-动态.gif

阅读1667
写评论...