欢迎来到天天文库
浏览记录
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
此文档下载收益归作者所有