快速合并单个excel表中的多个sheet的工作页

1、 快速合并单个excel表中的多个sheet的工作页很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页，多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复制粘贴的话，就比较麻烦。下面我就介绍一种利用excel的宏计算来解决这个问题。方法:1.首先我们要有自己的excel数据，并且我们需要的是microsoftexcel，WPS没有这些负责的功能。比如我下面举例的，我自己有205页的数据需要合并，如图所示。2.看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。我们现在开始合并，首先要在最前页新建一个工作表。如图：3.在新建的sheet表中“右键”，找到喳看代码

2、”，然后看到宏计算界面。如图所示:年峦百期|勒ja6工磧*31*.w：航jfejnwiwr拠wuTMt2.Fit*:/_E薄史.电.，.5-.PwttstlEndIfNext示谓G*bl曲恫lirn就Entbl*Fi.wlTFast応阳1时？*frtEmFa-t|DlxplfilieF*1lEnAbltAtilciFhltFd.x4jEnabltCklcul.tIrei=*.I.q*jEnvbltF-frrklCIrust5-cro11Arft4$tui.4urTillKS.13EndIfNext示谓G*bl曲恫lirn就Entbl*Fi.wlTFast応阳1时？*frtEmFa-t|Dlxp

3、lfilieF*1lEnAbltAtilciFhltFd.x4jEnabltCklcul.tIrei=*.I.q*jEnvbltF-frrklCIrust5-cro11Arft4$tui.4urTillKS.13VljU-J-E交件舌麻总咗弩歯JftAUl審式回筒姬运行TACJ強俚序回巒匚删4.看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下,效果如下:Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToSheets.CountIfSheets(j).NameActiveSheet.NameThenX=Range(A6

4、5536).End(xlUp).Row+1Sheets(j).UsedRange.CopyCells(X,1)Range(B1).SelectApplication.ScreenUpdating=TrueMsgBox当前工作簿下的全部工作表已经合并完毕！,vblnformation,提沽HicrosuftEacctl:*梢建&世cet.140(?*團器讪血乩*ttSh4t.0S怦苣|貉*叮05城刨5L11O6孑聲T=鬥4!*.*jjM卜曲世界吿寓氏IS；此国艮警丸谢i誉柠鲜務分-用页血-Slieell飓1舌-hClIS-UBAPrajKlShellwkrii电MEndSubXj羽6页合并后的结

5、果。谢谢。如有疑问，请留言。:站i回耐即弭牠=*A彌临方逼IZJKD外玄碑妙誉口凶5.做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”EndSubXj羽6页合并后的结果。谢谢。如有疑问，请留言。:站i回耐即弭牠=*A彌临方逼IZJKD外玄碑妙誉口凶5.做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了，合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示:拒85凹Ib一IS-vftAPffljWtW-Eif皿回誌.L齡島町.即*臥81.“孑浸邕吨户时砖-啊&KAO():iSfiffiLIMP-i匕”q”L乩”JJ!

6、LJ”二一n刘汕1ad*h4tlOLCFJhiU)3(Pae电劭罪讥EMUch1105CPtfOl活/llgCF,_li#*llIT打询*合并后的效果如下图，我们看到的是合并之后有8000多行，就是205Il4&5-n+riVp*iiUc口Tr-q*为幣工if育恸冷葱工作嘉已妊咅#豆毕：讪向卄吟-as-Sub圭#刿H工切嘶寿工作走。ApplL-taihaStttnVpFilxT*rj=i7-C-ciiTFH惑忤.Ih-lPsI-RutP5536*)Ea-JlxlUp)如+1(jLVxtdijt.C&vCtllidjOEMIfRspfr(W)5+1fell陆piidiigS-n+rtUb*iiU

7、hc-In*坤務m工if育卡的金嘗工作嘉已脛會吾兗緞tn4$b*br啟）shtviiDi冒日岬FtpErirTtls*徂i曽卫涉妾汀盘,迪孔Ep由1初呱伸il97tiff曰Ql*li.Eit4削ftaAdl：JhbdilCP口岬电(?ySbH%ICgSK讥IGHB罟aMiio+igjSb*-110$0rAJhhiiiH-(Fk.、iwtmForaLTt沁科tiCw:空4IeiG：IVwi?“tHYvfH-lTmTtoI3皿学14铀JS*-r3介fiEgp匚:冲iltllifl,J)En4Ifibx-i峠境逬需訓i翩囂茴直井龙毕厂.料rtftrEhi别丿仙迪*加（Mjrtti曲閒血世户記ELli

8、C戏创紅円労t-t.-外E1心吗）开始插入页面布局公式数据审阅文件开始插入页面布局公式数据审阅文件Arial9A*A*三=BIU-gp*雯辜BEl-AA8CDEF3146ZASOUTHAFSOUTHAFKWAZULL42403147ZASOUTHAFKWAZULLSTANGER44503140ZASOUTHAFEASTERNEASTLOr52413149ZASOUTHAFEasternC;EastLondi52473150ZASOUTHAFSouthAfritGonubie62573151ZASOUTHAFEasternC;PortElizat6025畑ZASOUTHAFEastCapePor

9、tElizal60453153ZASOUTHAFcapeproviiportelizab605531542ASOUTHAFeasterncaportalfed61703155ZASOUTHAFWesternCRobertson&7053156ZASOUTHAFCapeSomerset71303157ZASOUTHAFAtlantisAtlantis73493158ZASOUTHAFSouthAfricCapeTowr74053159ZASOUTHAFWesternCBloubergst74413160ZASOUTHAFCAPETOCAPETO74603161ZASOUTHAFWesternCB

10、ellville7530亠-ain-3163ZASOUTHAFCAPETOBRACKED75603164ZASOUTHAFSouthAfritCapeTowr77403165ZASOUTHAFwesterncecapetown78003166ZASOUTHAFWesternCCapeTowr79253167ZASOUTHAFWesternCFishHoek73753160ZASOUTHAFwesternprcapetown80013169ZASOUTHAFCapeTowrCampsBa80403170ZASOUTHAFSouthAfritBloemfont(93013171ZWZIMBABWZ

11、imbabweHarare2633173I卜啊新建的sheetPage1Page2Page扌P总沪4Pa；tlIM1MdrEHHIBIJUBUMirra7腕&OurHAFRICA吕口uthM皿生CapeTcmi?4fl5S2ASOUTHAFRICAVi&tLernCape刨Oube的引詹nd74418ZASOUTHAFRICACapetownCAPETOMJ血D1QZASOUTHAFRICAVi!estern匚粧日出MIIb76Q11ZASOUTMAFRICAWesltmCateDur&aille755017ZASOUTHAFRICACAPETOWNBRACKENFELL7M0ZASOUTHAFRICASouthAfhcaCapeTown7740ZASOUTHAFRICAwesCetn呷seca-petown7M0ZASOUTHAFRICAWesternCajjeCapeTown7W&-ZASOUTHAFRICAWe