欢迎来到天天文库
浏览记录
ID:55688003
大小:67.00 KB
页数:1页
时间:2020-05-24
《excel如何将一个工作簿中的多个工作表合并到一张工作表上.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、excel如何将一个工作簿中的多个工作表合并到一张工作表上打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面的代码复制到里边去,然后上面有个运行运行子程序就可以了,代码如下,如果出现问题你可以尝试工具宏宏安全性里把那个降低为中或者低再试试Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToSheets.CountIfSheets(j).Name<>ActiveSheet.NameThenX=Range("A65536").End(xlUp).Row+1Sheets(j).UsedRange.Co
2、pyCells(X,1)EndIfNextRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"当前工作簿下的全部工作表已经合并完毕!",vbInformation,"提示"EndSub
此文档下载收益归作者所有