欢迎来到天天文库
浏览记录
ID：51909132
大小：213.38 KB
页数：3页
时间：2020-03-18
《Excel如何将一个工作表中的多个sheet合并到一个sheet中.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
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.CopyCel
2、ls(X,1) EndIfNextRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"当前工作簿下的全部工作表已经合并完毕！",vbInformation,"提示"EndSub
此文档下载收益归作者所有
