快速合并單個excel表中的多個sheet的工作頁

1、 快速合并單個excel表中的多個sheet的工作頁很多朋友會遇到這樣的問題，就是很有很多頁的數(shù)據(jù)，少的有幾十頁，多的可能有幾百頁，然后需要合并到一個頁面做數(shù)據(jù)分析，如果一頁頁的復(fù)制粘貼的話，就比較麻煩。下面我就介紹一種利用excel的宏計算來解決這個問題。方法:1.首先我們要有自己的excel數(shù)據(jù)，并且我們需要的是microsoftexcel，WPS沒有這些負責(zé)的功能。比如我下面舉例的，我自己有205頁的數(shù)據(jù)需要合并，如圖所示。2.看到這么多數(shù)據(jù)頁要合并，如果是復(fù)制粘貼的話，工作量就很大了。我們現(xiàn)在開始合并，首先要在最前頁新建一個工作表。如圖：3.在新建的sheet表中“右鍵”，找到喳看代碼

2、”，然后看到宏計算界面。如圖所示:年巒百期|勒ja6工磧*31*.w：航j(luò)fejnwiwr拠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.看到宏計算界面，我們就只需要把下面的代碼復(fù)制進去，代碼如下,效果如下:Sub合并當(dāng)前工作簿下的所有工作表()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當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！,vblnformation,提沽HicrosuftEacctl:*梢建&世cet.140(?*團器訕血乩*ttSh4t.0S怦苣|貉*叮05城刨5L11O6孑聲T=鬥4!*.*jjM卜曲世界吿寓氏IS；此國艮警丸謝i譽檸鮮務(wù)分-用頁血-Slieell颶1舌-hClIS-UBAPrajKlShellwkrii電MEndSubXj羽6頁合并后的結(jié)

5、果。謝謝。如有疑問，請留言。:站i回耐即弭牠=*A彌臨方逼IZJKD外玄碑妙譽口兇5.做完上面的事情，然后只需要點擊工具欄上面的“運行”下的“運行子過程/用戶窗體”EndSubXj羽6頁合并后的結(jié)果。謝謝。如有疑問，請留言。:站i回耐即弭牠=*A彌臨方逼IZJKD外玄碑妙譽口兇5.做完上面的事情，然后只需要點擊工具欄上面的“運行”下的“運行子過程/用戶窗體”就可以了，合并完之后會有提示。提示完成之后就可以把宏計算界面關(guān)閉了。如圖所示:拒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*坤務(wù)m工if育卡的金嘗工作嘉已脛會吾兗緞tn4$b*br啟）shtviiDi冒日岬FtpErirTtls*徂i曽衛(wèi)涉妾汀盤,迪孔Ep由1初呱伸il97tiff曰Ql*li.Eit4削ftaAdl：JhbdilCP口岬電(?ySbH%ICgSK譏IGHB罟aMiio+igjSb*-110$0rAJhhiiiH-(Fk.、iwtmForaLTt沁科tiCw:空4IeiG：IVwi?“tHYvfH-lTmTtoI3皿學(xué)14鈾JS*-r3介fiEgp匚:沖iltllifl,J)En4Ifibx-i峠境逬需訓(xùn)i翩囂茴直井龍畢廠.料rtftrEhi別丿仙迪*加（Mjrtti曲閒血世戶記ELli

8、C戲創(chuàng)紅円労t-t.-外E1心嗎）開始插入頁面布局公式數(shù)據(jù)審閱文件開始插入頁面布局公式數(shù)據(jù)審閱文件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