excel如何快速把多个工作表合并到一个excel表.docx
excel如何快速把多个工作表合并到一个excel表有这么一种状况，就是我们有许多张excel,而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个CXCeI页面，这样可以便利我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法,希望能帮助到大家。工具/原料Excel操作步骤:1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。除始数呢表.xSmX日期姓名I名称I数量I多个工作用县有格三就一样I的数据J44月14日G1164484954月18日处玉G1205281364月18日/陈玉G90780871月3日414292?95H般卜,网;国130%（击2、在原始数据同书目下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。3、按Alt+Fl1进入VBA代码编辑和调试界面。乃MicrosoftVisualBasic合并工作表工具.xlSmSheet2(fc三得文快D«(£)SS(Y)JSA(D格式(Q)««(D)模块(M)5fi(C)文件(1.)-.4、依据下图提示，插入个模块。伯MicrosoftVisualBasic-合并工作表工fi.xkm-Sheet2(冷文件(D«3300国国二0*工祝-VBAPrajectX<VBAPrject(ClrVs1国超VBPrjct(Cntxt.xl£qVBKFrojoct(合并工作为-<3HicrwftExca对象ShgU(S页)®She«t2(台弁汇总表*ThsVorkbook向超百宝Ifi(Fu>ctin2.xla5、将卜.述代码粘贴到模块空白处:复制代码代码如下：SubCombineSheetsCells()DimWSNeWWOrkSheetAsWorksheetDimcelAsRangeDimDataSourcc,RowTitle,ColumnTitle,SourceDataRows,SouFceDataColumnsAsVariantDimTitleRow,TitleColumnAsRangeDimNumAsIntegerDimDataRowsAs1.ongDataRows=1DimTitleArrODimChoiceDimMyName$,My$,ActiveSheetNameS,AddressAll$,AddressRow$,AddrcssColumnS,$,DataSheet$,myDelimitersDimn,in=1i三1Application1DisplayAlerts=FalseWOrkSheets("合并汇总表)DeleteSetWsNcwWorksheet=Worksheets.Add(,after:=Worksheets(Worksheets.Count)WSNCWWOrkSheet.Name="合并汇总表"My=Application.GetOpenCExcel工作薄(*.xls*),*.xls*")IfMy="False"ThenMsgBox”没有选择文件！请重新选择一个被合并文件！",VbInformation,"取消"ElseWorkbooks.OpcnMyName=ActiveWorkbook.NameSetDataSource=APPliCation.InputBox(prompt:="请选择要合并的数据区域：",TyPe:=8)AddressAll=DataSource.AddressActivcWorkbook.ActiveShcet.Range(AddressAll).SelectApplication-ScreenUpdating=FalseAPPIiCatiOn.EnableEvents=FalseFori1ToNumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyWorkbooks(ThisWorkbook-Name)1ActivateACtiVeWorkbOok.Sheets("合并汇总表)SelectACtiVeWOrkboOk.Shccts("合JF汇总表").Range("A"&DataRows).Value=ActiveSheetNameACtiVeWOrkbOok.Shccts("合并汇总表").Range(Cells(DataRows,2),Cells(DataRows,2).SelectSelection-PasteSpecialPaSte:=xlPaStCCOlUmnWidths,Operation:=xlNone,_SkipBlanksr=False,Transposei=FalseSelection.PasteSpecialPastei=XlPasteAll,Operationi=XlNone,SkipBlanks:=_False,Transposei=FalseSelection-PasteSpecialPaster=XlPasteValues,Operation:=xlNone,SkipBlanks_:=False,Transposei=FalseDataRows=DataRows+SourceDataRowsWOrkbOokS(MyName).ActivateNextiApplication1ScrcenUpdating=TrueApplication-EnableEvents=TrueEndIfWorkbooks(MyName),CloseEndSub归MicrosoftVisualBasic台并工作表工具Xkm模决1（代两】用文件（D翦笳三S（V）Ii入（D格式©调试）运行凶图里.史Tg-VBAProjectJ0*>"/比卷雪&SubCgblaQSh。USCQU二0二：根田1DimvzMe,ork三hetAsWorksheetDi»c«lAsRngGD1魅VBAPrjct(Cntxt.S超VBAFrjct(合并工作学百等BicrosoftZxctl对象琬Shall(S页)Shot3(合并汇总关ThxsWorkbookDataSourcezRovTitlexColun:D<rTitleRov,TitleColunnAsRaDiGWsAsInterDiDQtaRg二As1.oWDatRcrs三IDieTitleArr()Di<rChoicoDi»MNneSzNVfile"$,ActivIhmX1.26、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。7、点击“首页”工作表中插入的按钮，依据提示，阅读到原始数据工作簿。Q打开M三分s*m，*2Zfm,WIg,Vp8、下步，用鼠标选择要合并的数据范I树“留意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择随意工作表的个较大范件I,比如说AkDlOO,保证比最多行数的工作表数据还多就可以，一会再删除空行。回台并工作衰工fiXSERKRlKS.XlMnX2345678A日期4月10日4月41名称I数量陈玉、VIIlo4月4月21日陈玉IG144226839、点击确定按钮，待代码运行完毕后，全部的数据就都合并到了“合并汇总表”中。留意：DA列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，卜而通过筛选删除。KABCDE1陈玉日期姓名名称_数量24月10日陈玉GlllO105034月IIB陈玉G1274332844月MB陈玉G1164484954月18日陈玉G1205281364月18日陈玉G90780874月19日陈玉G1429239584月21日陈玉G1442268394月23日陈玉G11702011104月25日陈玉G13661648114月25B陈玉G1407794124月26B陈玉G12461998134月29日陈玉G127134551415161718192021康佑红日期姓名名称数量224月16日康佑红G1432779234月19日康佑红G14191180244月24日康佑红G1332759252627289Q10.选中全部数据区域，执行自动筛选C然后选择其中个字段，选择“空白”和标题内容。A123456739IO1112131415161718192021Jjn隆序(Q)日姓名1.l名，升序从s卬潘按腔色笳三0)数字55透(D4.康佑红11、然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图:期台并工作表工三xlsmX1陈玉一T日未体C1214151617B/叁三6aw囱181920212526272829303132333435363738394041Ja康佑红：HM剪切SW(£)WW0S½tfKGD.转入行0)*行T'5S（三）三k粉量回合并工作表工三xsmX_Jm1A享期BC名航D1.数SU24月10日IGlllO105034月IlB4iIG1274332844月14日陈玉GU64484954月18日陈玉G1205281364月18日陈玉G90780”74月19日陈玉Gl42923歹84月21日陈玉Gl
