Excel如何将一个工作表中的多个sheet合并到一个sheet中.doc

《Excel如何将一个工作表中的多个sheet合并到一个sheet中.doc》由会员分享，可在线阅读，更多相关《Excel如何将一个工作表中的多个sheet合并到一个sheet中.doc（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

如有侵权，请联系网站删除，仅供学习与交流Excel如何将一个工作表中的多个sheet合并到一个sheet中【精品文档】第 2 页1、打开需要将所有单个的EXCLE表合到到一个表的工作簿，新建一个工作表在这个工作表中录入ALT+F112、 你把下面的代码复制到里边去 3、上面有个运行， 运行子程序就可以了。代码如下Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).Name ActiveSheet.Name Then X = Range(A65536).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End IfNextRange(B1).SelectApplication.ScreenUpdating = TrueMsgBox 当前工作簿下的全部工作表已经合并完毕！, vbInformation, 提示End Sub