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

1、快速合并单个excel表中的多个sheet的工作页很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页,多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复制粘贴的话，就比较麻烦。下面我就介绍一种利用excel的宏计算来解决这个问题。方法：1. 首先我们要有自己的 excel数据，并且我们需要的是microsoft excel ,WPS没有这些负责的功能。比如我下面举例的，我自己有 205页的数据需要合并，如图所示3RL5W1 JU RTURU LTJ1IWVS F L JLnm-uvmrzFWV:AEU!；nED ARABFMlfUTESDuabDu bl*155M16

2、AEUr；计ED ARAB erKATES5gDug1591717AEUMTED ARAB EMIRATESUAEDug，167C110AELMiOED ARAB EMIRATESCuba口 ubsi师6WAEW,：佗白 ARAB EMIRATESUAEDub«)m得於AELWWTED AftAH E"；?iArESDuW。必212130WflfUtffTED ARAB EMIRATES= Aitw Dhabi223AEUWTED ARAB EMIRATESIM曲司Arab E eq咕Dvg22423AEIXTED 网的H EMIRATESDubJiDubJi2462A2+

3、AEUl, 1ED AHABCiRATFSUAEDubJv25AEumeD ARAB EMIRATESNJAMu Dhabi墟132SAEiXiTCD ARAB EMIRATESRwOtimbcAbu Dh»ln35 W2TAEUHfTED ARAB EMIRATESDugDubsi?7%22s t.E rl- '1TC r*L A nA O c-l *：n ATCSFS-14 4 k Fk一 且T - P.二j 'THF门单: Pjjji 覆tajPkt, W於与2. 看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。我们现在开始合并，首先要在最前页新建一

4、个工作表。如图：73.在新建的sheet表中 右键”，找到 查看代码”，然后看到宏计算界面如图所示:4.看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下,效果如下：Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)End

5、IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation,"提End Sub宜曲II Ml.利BM 如他 诙卬 JR曲 帽吊即 工M2）相（/确A）"她也X9mi ,Ei1m - >SmE巾明 勤 Shk4l 14 J 卬%修探用崎工0方的幅立工柞米|MjIimLh ：邙*4>.，&虱im FiJlsi，gT ; 3 E la Si*1,!： C-Io.*It 4”工)1c

6、hp F»Pf ，a串中 TVmX 如血/、I / 3C-JT C4li«l. I) b4 If/ ±3 2 , Ibfri 1 LdJ.mEQQ FmiM f fert ii M 4h"总BA n i. i-MK为籍丁作口不晌*布丁值篁mw，xm，浦”电4匕* So «*«* i4( i n£ t T星:"3«mm .瞪b4 M5. 做完上面的事情，然后只需要点击工具栏上面的运行”下的运行子过程/用户窗体”就可以了，合并完之后会有提示。 提示完成之后就可以把宏计算界面关闭了。如图所示：1J d工.BAP

7、tpKd处她也)«也电电也iOH»Elf代画a««tm行“ ff*C 廿*« 仃“ 行“ 了” g< .srt总算曲NauvrF的1晴工作蠢u $cT«*frlfp4«ti.M = Ttlitf*r j = I T* 禽,H，C*tIf (j) >*< O lm中0E * TMn i凯事随55®)+ 1 客fcftiGj u*疝w.c*pt ci：1ali 1)2 if 仆Kx«m 5 m鼻.pl i4 "1Scf *blhd it LU 1*.f旭工rnt子陵被i昨寡日月台再

8、其学！；vM-f«r-aXkf '界示"“匿凹Shvvll T6rifiLtvL候字母津横方之谓Di “Ivtyakr« T«li«Ha IJnlfcrlialTe fiklliEgg 1 F dL 1 v6. 合并后的效果如下图，我们看到的是合并之后有 8000多行，就是205页合并后的结果。谢谢。如有疑问，请留言。文件r1播入 £面布局 公式 数据 窗阅？Arial 9 Wk =三B Z U T HJ T嗖,拿 W字体1A更切更贴板B1匚 AM46 6147J145M49AZAZAZAZABSOUTH Af SOUTH A

9、F SOUTH Af SOUTH NcSOUTH Af KWAZULl EASTERN Eastern C;D KWAZULU STANGER EAST LOr East LondiE 4240 4450 5241 5247FS150 M515152 M53ZAZAZASOUTH AfSOUTH AfSOUTH .AfSouth AfritEastern Ci East CapeGonubisPort 日izalPort Elizal625760256045ZASOUTH Afcape provHport elizab6055S154155B156I - 1,157油.一3158ZAZAZAZ

10、AZASOUTH AfSOUTH AfSOUTH AfSOUTH AfSOUTM AFeastern ca Western C Cape Atlantis South Afriport alfed Robertson Somerset Atlantis Cape Towr617067067130734974055159M60ZAZASOUTH AFSOUTH AfWestern CCAPE TOISloubergstCAPE TO74417460M61ZAF .SOUTH AfWestern CBellville7530B163M64 165 “66 31675168二一 31695170B1

11、 - ： - r|?171ZA ZA ZA ZA ZA ZA ZA ZA ZWSOUTH Af SOUTH AF SOUTH Af SOUTH Af SOUTH AF SOUTH Af SOUTH Af SOUTH Af ZIMBABWw v -Bb* V * -W ! W -W CAPE TO South Afri< western c« Western C Western C western pr Cape Towt South Afrk Zimbabwe1 , V r BRACKED Cape Towr cape town Cape Towr Fish Hoek cape

12、 town Camps Ba Bloemfbnh Harare75607740780079257975800130409301263芸9 4Pas&优甲* w新建的孰网上|Page If'PaMC 2,下agw 3_ l P叁CJJ认SOUTH AFRICASath AhxiCup* Tmio740582ASOUTH AFRICAW4iiern C晔自5m 蒙twM7441*ZASOUTH AFRJCACAPE TCTM4CAPE Em*婚ZASOUTH AFRICAMUtmCtfaB4M此7530iiZASOUTH AFRICAWesl&ni Capturbagll/7弼ZASOUTH AFRICACAPETQfWhSRACKEHFELLT涮1ZASOUTH AFRICASoiith AhcaCape Town774C12SOUTH AFR3CAcapetowTWOfZASOUTH AFRICAWMlem CapeCape To#m1ZASOUTH AFRICA1 1We«i<efn Cwt PrcmflceF冷h HmK内75IZASOUTH AFRICAWSEflW 户6mMcshpe lowW01ZASOUTH