血色の紅葉 阅读：64次 时间：2017-12-11 20:12:57Excel有很多页的数据需要合并到一个页面，一页页的复制粘贴比较麻烦，小编给大伙儿分享Excel的宏计算来解决这个问题以下内容是由微蓝经验网用户发布EXCEL如何将两个或多个工作表合并成一个工作表，希望对于用户有一定帮助，为朋友进行解决疑惑，如若想了解更多相关内容，可以向底部移动了解更多与本教程文章相关解决经验方法！
Excel2016
点开一个Excel文档，显示有三个Sheet
三个Sheet分别的内容
点击Sheet栏后面的“+”
创建一个叫“合并”的Sheet
右键“合并”Sheet选择“查看代码”
打开VBA编辑窗口
输入以下代码：
Sub合并当前工作簿下的所有工作表()
Application.ScreenUpdating=False
Forj=1ToSheets.Count
IfSheets(j).Name<>ActiveSheet.NameThen
X=Range("A65536").End(xlUp).Row+1
Sheets(j).UsedRange.CopyCells(X,1)
EndIf
Next
Range("B1").Select
Application.ScreenUpdating=True
MsgBox"当前工作簿下的全部工作表已经合并完毕！",vbInformation,"提示"
EndSub
单击“运行”挑选“运行子过程/用户窗体”
弹提示窗口
回到“合并”Sheet就能看见成功合并
怎么样，是否很简洁明了呢~
声明 未经许可，请勿转载。
© 2025 VLPOS.com 版权所有 微蓝网 ICP备案号：黑ICP备20003952号-1