欢迎来到天天文库
浏览记录
ID：25243047
大小：232.91 KB
页数：3页
时间：2018-11-19
《excel如何将一个工作表中的多个sheet合并到一个sheet中》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、1、打开需要将所有单个的EXCLE表合到到一个表的工作簿，新建一个工作表在这个工作表中录入ALT+F112、你把下面的代码复制到里边去3、上面有个运行，运行子程序就可以了。代码如下Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToSheets.Count IfSheets(j).Name<>ActiveSheet.NameThen X=Range("A65536").End(xlUp).Row+1 Sheets(j).UsedRange.CopyCells(X,1) EndIfNextRange("B1").
2、SelectApplication.ScreenUpdating=TrueMsgBox"当前工作簿下的全部工作表已经合并完毕！",vbInformation,"提示"EndSub
此文档下载收益归作者所有
