Excel同工作簿多个工作表合并到一个工作表


同一个excel多个工作表合并,一个个手动复制麻烦,也怕出错。利用宏来解决。

打开一个Excel文档,显示有三个Sheet

三个Sheet分别的内容

点击Sheet栏后面的【+】

创建一个叫“合并”的Sheet

右键“合并”Sheet选择【查看代码】

打开VBA编辑窗口

输入以下代码:

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A65536").End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
End Sub

 

点击【运行】选择【运行子过程/用户窗体】

弹提示窗口

回到“合并”Sheet就能看见成功合并

分享一下:

小朱博客

View posts by 小朱博客
小朱个人博客,生活网络分享,外贸建站,谷歌seo操作分享,B2B优化排名操作分享,资源分享,软件分享,生活分享。https://www.zhudc.com/

发表评论

电子邮件地址不会被公开。 必填项已用*标注

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Scroll to top
%d 博主赞过: