EXCEL中如何將多個(gè)工作表的內(nèi)容合并到一個(gè)表格中

BC日期數(shù)量456左下裁K臺(tái)面1文聞歸舊工鼠E幫助(H)組頸〒紐打幵〒共享〒打印電子郵樣劇錄2、在原始數(shù)據(jù)同目錄下新建一個(gè)工作簿，建立兩個(gè)工作表，名稱分別為''首頁〃和''合并匯總表〃。-■最近訪問的站亶原始遊表BC日期數(shù)量456左下裁K臺(tái)面1文聞歸舊工鼠E幫助(H)組頸〒紐打幵〒共享〒打印電子郵樣劇錄2、在原始數(shù)據(jù)同目錄下新建一個(gè)工作簿，建立兩個(gè)工作表，名稱分別為''首頁〃和''合并匯總表〃。-■最近訪問的站亶原始遊表操作步驟:4鬥町巳I陳王14292395w'卜B昧王康怙紅李秋香?百範(fàn)驗(yàn)?^二険?合并工1、原始數(shù)據(jù)所在工作簿包含多個(gè)格式相同的工作表，只不過每個(gè)工作表內(nèi)容不同，比如說不同人名的工作表數(shù)據(jù)或者不同部門填寫的數(shù)據(jù)。姓名G12052813G907808□囿'回四iso%0易(+型匾始數(shù)拐表話1刑X名稱4月14日G116448494月18日4月18日“陳玉多個(gè)工作表有格式一樣的數(shù)據(jù)￡1100%ft「巒臺(tái)井工作表工員Jdrnix|〒3CE1、123、111456/7/89kin百頁3、按Alt+F11進(jìn)入VBA代碼編輯和調(diào)試界面。MicrosoftVisualBasic-音并工作表工員.xlsm-[Slieet2（代足摒文件（E扁輯迥視凰凹插入①梧式回調(diào)試㈤:團(tuán)廳”日丨爲(wèi)曙車餡丨中卩丨卜叩■怔為-VBAProjert―l>dTF?H）色國LJ-nSheet1（M頁）□TOATrojeGt（Clark's]E]YBATroject（Contxt.x]申黯YBATroject〔合并工作#!白-SMicroEoftExc^L寸象iiii.nSheet1（M頁）II“?“fflSheetZ（臺(tái)菲E總克L-eThisWorkbook由…百寶箱CFimdioit2-xla4、根據(jù)下圖提示，插入一個(gè)模塊。

鬥MicrosoftVisual衍弓it-臺(tái)并工作表工員創(chuàng)左m-[Sheet2（f＜文樣舊稲⑥視冒凹I梧式回調(diào)試[旳戶降槿塊（Ml工程-V&APreject

I梧式回調(diào)試[旳戶降槿塊（Ml(ClarkJs1(Cdntict.n](舍并工作至Excel對(duì)毀□VBATroject由題VBATrojeet白尊VBATrojecti口-\Microsoft1…B]i…B]Sheets君并匯總表建THSWorkbook曲百寶箱oit2.xlaSheetlCK頁〕站（U”皆MicrosoftVisualBasic-舍并工作表工具xGm-[槿墀L(代碼)]用）文件（E編輯（EJ視凰凹插入①恪式回謂試?用）CClark*sCContxt.〔合并CClark*sCContxt.〔合并Excel(B[+1VBATroject~'申”騒TOATroject丨白”?舷VBATrojectI?白…LHicrosoft]；…“晝Sheetl；"?“晝SheetZThistfor檯塊15、將下述代碼粘貼到模塊空白處:復(fù)制代碼代碼如下：SubCombineSheetsCells()DimwsNewWorksheetAsWorksheetDimcelAsRangeDimDataSource,RowTitle,ColumnTitle,SourceDataRows,SourceDataColumnsAsVariantDimTitleRow,TitleColumnAsRangeDimNumAsIntegerDimDataRowsAsLongDataRows=1DimTitleArr()DimChoiceDimMyName$,MyFileName$,ActiveSheetName$,AddressAII$,AddressRow$,AddressColumn$,FileDir$,DataSheet$,myDelimiter$Dimn,in=1i=1Application.DisplayAlerts=False合并匯總表SetwsNewWorksheet=Worksheets.Add(,after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name=合并匯總表MyFileName=工作薄IfMyFileName=ThenMsgBox沒有選擇文件！請(qǐng)重新選擇一個(gè)被合并文件！vbInformation,取消ElseWorkbooks.OpenFilename:=MyFileNameNum=ActiveWorkbook.Sheets.CountMyName=ActiveWorkbook.NameSetDataSource=請(qǐng)選擇要合并的數(shù)據(jù)區(qū)域：Type:=8)AddressAll=DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAII).SelectSourceDataRows=Selection.Rows.CountSourceDataColumns=Selection.Columns.CountApplication.ScreenUpdating=FalseApplication.EnableEvents=FalseFori=1ToNumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName=ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).Activate合并匯總表合并匯總表&DataRows).Value=ActiveSheetName合并匯總表2),Cells(DataRows,2)).SelectSelection.PasteSpecialPaste:=xlPasteColumnWidths,Operation:=xlNone,_SkipBlanks:=False,Transpose:=False

Selecton.PasteSpecialPaste:=xlPasteAII,Operation:=xlNone,SkipBlanks:=_False,Transpose:=FalseSelection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks:=False,Transpose:=FalseDataRows=DataRows+SourceDataRowsWorkbooks(MyName).ActivateNextiApplication.ScreenUpdating=TrueApplication.EnableEvents=TrueEndIfWorkbooks(MyName).CloseEndSub^~|MicrosoftVisuailiBaisic-合并工作表工員.xbm-[槿決1(代碼)]彌伺視罔凹插入①梧式?調(diào)試也|運(yùn)齊?工具［工程-VBAProjectSubCunibineSJie&teC已11sL?JSVBJLProjeet由黯VBATrojeet自聽VBATrojeetMlCTOEu￡t|…BjSheetli…SVBJLProjeet由黯VBATrojeet自聽VBATrojeetMlCTOEu￡t|…BjSheetli…塹Sheet3(ClarVs1

(Contict_x](合并工作#對(duì)象篇頁)(合笄匯總恚ThisWflrkbcQk十5?UFniictiOJ1Z_xlaDimDinDimDiihDimDim?i￥eJTwivWorlzEheetAs'A1orksheetCt：!AsR：dTLgtiI1at:aSDurce_,R口ytTitle」TitlaF：WiV」titl色匚.：.1iutiTlITujtiAsInteg已r衛(wèi)曰七：±JuIi'i'i'5AsLungColumn!;ksRang.DataJioffs=1DimDimDimDimn-TilleAi-r(：lChoiceMy}I：ini已罠MyF11已"aju已叭tl,iXctiveEl6、在''首頁〃工作表中按下圖示范插入一個(gè)窗體控件并指定宏為插入的代碼名稱。7、點(diǎn)擊''7、點(diǎn)擊''首頁〃工作表中插入的按鈕，根據(jù)提示，瀏覽到原始數(shù)據(jù)工作簿。?1J24"A匸陽?侮豳削鬥璽]舎井工惟轟工貝jil?nx[丄_8叼*[A1鳳1C劊好A闌謬戲E工12

注意：每個(gè)工作表數(shù)據(jù)可能不一樣，比如說有的是10行數(shù)據(jù)，有的是30行數(shù)據(jù)。在這里我們可以用鼠標(biāo)選擇任意工作表的一個(gè)較大范圍，比如說A1:D100,保證比最多行數(shù)的工作表數(shù)據(jù)還多就可以，一會(huì)再刪除空行。AC數(shù)量G11103輸入4月14月1確定取消陳玉4月14m56UAC數(shù)量G11103輸入4月14月1確定取消陳玉4月14m56U臺(tái)井工偉工具心旳塹劇嬲據(jù)x24月10日1050S4月21日陳玉G144226831日期名稱請(qǐng)選擇要臺(tái)井的數(shù)捐區(qū)域:翹合井工作翹合井工作ai見対弼X捕人清詵怪零含并的埶振反應(yīng)：]|李秋香幻|隔定取消9、點(diǎn)擊確定按鈕，待代碼運(yùn)行完畢后，所有的數(shù)據(jù)就都合并到了''合并匯總表〃中。A列的文本說明右側(cè)的數(shù)據(jù)來自于原始數(shù)據(jù)表的哪個(gè)工作表;數(shù)據(jù)之間會(huì)有一些空行，下面通過篩選刪除。ABCDE1陳玉日期姓名名稱數(shù)韋24月口日陳玉GU1Q105034月11日陳玉G1274332844月14日陳玉G1164484954月吃日陳玉G1205281364月迂日貳玉G90730374月19日陳玉G1429239584月丑日陳玉G14422683g4月勵(lì)日陳玉G11702011104月笳日陳玉G136&1648114月勵(lì)日陳玉G1407794124月26日陳玉G12461998134月西日陳玉G127134551415161718192021康佑紅日期姓名名稱數(shù)葦224月讓日康佑紅G1432779234月ig日康佑紅24日康佑紅G133275925262728沁10、選中全部數(shù)據(jù)區(qū)域，執(zhí)行自動(dòng)篩選。然后選擇其中一個(gè)字段，選擇'空白〃和標(biāo)題內(nèi)容。

巒合井工作表工具Jd$inx扎1陳玉口24,34,44,54,4,74,巒合井工作表工具Jd$inx扎1陳玉口24,34,44,54,4,74,84,g4,104,114,12134.4,1415161718192021i~ir~i康佑紅［￡麗TF姓電“名稱J數(shù)董-升序⑸降序q按顧色排序CD從口清瞬述?卜匚3332!■■■■□3334|-E2455|-C3620卜匚4293^4S491尼數(shù)星鞍色簫選U數(shù)字篩選CEnnr\r=t=rj'-J-jL-TInidnn11、然后將篩選出來的無用行鼠標(biāo)右鍵刪除，再刪除A列整列即可，完成效果如下圖：曹合井E儀I具Jdsmx曾曾昔井工作表工具刃沏X曾曾昔井工作表工具刃沏XABCD1日期數(shù)錄24月10E陳玉G111010504月11E陳玉G1274332S4月1虹陳玉G116448494月1乳陳玉G120528134月1乳陳玉G907808/i->4月19E陳玉G1429239f4月21E陳玉G144226^34月器E陳玉G1170XII4月25E陳玉G1366X64S4月25E陳玉G1407.r7944月託E陳玉G1246/199S134月卻E陳玉G127/345514151617181920212223242526274月1菇A更佑紅G1/27794月19E1乏佑紅0^1911804月霜E康佑紅7593月引E李秋香G138213274月4日李秋