excel如何快速把多個(gè)工作表合并到一個(gè)excel表

1、excel如何快速把多個(gè)工作表合并到一個(gè)excel表有這么一種情況，就是我們有很多張excel，而且excel表里面的公式基本一樣，我們就想快速的把這些excel合并在一起，意思在合并在一個(gè)excel頁(yè)面，這樣可以方便我們分析和統(tǒng)計(jì)，那么excel如何快速把多個(gè)工作表合并到一個(gè)excel表？下面為大家介紹這種方法，希望能幫助到大家。工具/原料Excel操作步驟：1、原始數(shù)據(jù)所在工作簿包含多個(gè)格式相同的工作表，只不過(guò)每個(gè)工作表內(nèi)容不同，比如說(shuō) 不同人名的工作表數(shù)據(jù)或者不同部門填寫(xiě)的數(shù)據(jù)。戦）屋始數(shù)捋務(wù)點(diǎn)懷in x' >ABCDZI1:日期姓名名稱:數(shù)量多個(gè)工作表有格式一樣的數(shù)據(jù)44

2、月14日G1164484954月18日怡玉G1205281364月18日i陳玉G9078087/月昭日*£14292?95M 1 >右紅李秋雀r VI <1 山號(hào)緒首頁(yè)”和合并匯總2、在原始數(shù)據(jù)同目錄下新建一個(gè)工作簿，建立兩個(gè)工作表，名稱分別為 表”Sheet】 CM 頁(yè))3、按Alt+F11進(jìn)入VBA代碼編輯和調(diào)試界面。薩 Microsoft Visual Basic -合井工陀表工具- Sheets (代翅 磔文件(D 舞輯視圏(Y)插入格式(Q)調(diào)試衛(wèi))1 t H I A事血?dú)w 工焉-VB A ProjectX回 31 I JJ-田烝 VBATroject (CLv

3、k's 1 VBATroject (Contxt xl E ¥B*Tr®jeCt (合并工作總 El 阿 Microsoft Excel 對(duì)象 i- SjH ® Sheet2合笄匚總克 L® ThislVQrkbockS 百寶箱 CFuncti onZ. xl&4、根據(jù)下圖提示，插入一個(gè)模塊。薩 Microsoft Vi咅u韻 Basic -合并工乍表工M?(怎m - Sheet2 ( <文件(D隅© 觀T ud工程-VBAProjectX(+ VBAProjecl 由輔 YBAyroject 二翳 VBAProject日

4、刊 Microsoft(Clark* e 1 (Cvntxt, xl (臺(tái)舁工作笊 Etcel對(duì)象（U） 模塊蝕）iSheet! CM 頁(yè)®SWt2倉(cāng)笄匯總蕓 ThisTforkbaokFH 輔 百寶輯(FnnctionZ-薩 Microsoft Visual Bsic -合井工作表工具xkm -環(huán)決t 弋舀橢文件（D 扁輯® 視圖凹播入 梧式gj調(diào)試x|用）工程-VBAProject(Clark" s (Contxt. (合并 EscL 倉(cāng)員咅匯總耒VBFr®ject VBATrflj set VBAPrajecl<5 Microsoft 】 團(tuán)

5、 Sh««tl O Sh«t2SI ThisWrA -iJ範(fàn)翳R-EiE旦！，5、將下述代碼粘貼到模塊空白處:復(fù)制代碼代碼如下：Sub Comb in eSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, Column Title, SourceDataRows, SourceDataColu mns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRow

6、s As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAII$, AddressRow$,olumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1AddressCApplicati on .DisplayAlertsFalseWorksheets(” 合并匯總表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheet

7、s(Worksheets.Cou nt)wsNewWorksheet.Name ="合并匯總表”MyFileName = Applicatio n.GetOpe nFile name("Excel If MyFileName = "False" ThenMsgBox "沒(méi)有選擇文件！請(qǐng)重新選擇一個(gè)被合并文件!Else工作薄(*.xls*),*.xls*")",vbInformation,"取消"Workbooks.Ope n File name:=MyFileNameNum = ActiveWorkboo

8、k.Sheets.Cou ntMyName = ActiveWorkbook.NameSet DataSourceApplicati on.ln putBox(prompt:="請(qǐng)選擇要合并的數(shù)據(jù)區(qū)域:Type:=8)AddressAllDataSource.AddressActiveWorkbook.ActiveSheet.Ra nge(AddressAII).SelectSourceDataRows = Select ion .Rows.Co untSourceDataColu mns = Selecti on .Colu mn s.Co untFalseFalseApplica

9、ti on. Scree nU pdati ngApplicatio n.E nableEve ntsFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Ra nge(AddressAII).SelectSelect ion. CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets(”合并匯總表”).SelectActiveWorkb

10、ook.Sheets(”合并匯總表").Range("A" & DataRows).VaIue = ActiveSheetNameActiveWorkbook.Sheets(”合并匯總表").Range(Cells(DataRows,2), Cells(DataRows, 2).SelectSelect ion .PasteSpecial Paste:=xIPasteCoIu mn Widths,Operati on: =xlN one,SkipBla nks:=False,Tran spose:=FalseSelect ion .PasteSp

11、ecialPaste:=xlPasteAII,Operati on:=xlN one,SkipBla nks:=False, Transpose:=FalseSelect ion .PasteSpecial Paste:=xIPasteVaIues,Operati on:=xlN one,SkipBla nks _:=False, Tran spose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplicati on. Scree nU pdat ing= TrueApplicatio

12、n.En ableEve nts= TrueEnd IfWorkbooks(MyName).CIoseEnd Sub嘗Microsoft Visual Bjsic -合井工作恚工具.xbrn -填塊1(代國(guó)文件舊扁輯視圖凹插入（D梧式g）調(diào)試運(yùn)行® IMC工律-VBAProject.A di i 23S- VBAPrflject畝VEATroj eel白霸 VBAFroject 白倍 MicrosoftQ Shettl 國(guó)| Sheetsi(Cl*rkf s I (Contzt. kJ(合并工作玄Excel對(duì)象 盲頁(yè)) (臺(tái)并匯總志凰模塊1ThiWorkbookIFimc ti on

13、ZI xl aSub CofflbineShftfttsCftlls (JDimDimDimDimDinDimwsJfewWorkihea t As Worksite st c«l As Ruige DatsS&iirc* RowTi tie, T i tltRaw, TitleColumii Hum As Integer DataEcws As LongColumnT As Rang?CataKows = 1DimDin D i mDimli -TitlsArrOChoiceMyHameS, MvFile $rActiveS6、在 首頁(yè)”工作表中按下圖示范插入一個(gè)窗體控件并

14、指定宏為插入的代碼名稱。Visual BasicA 田v JH?1 naiM 1J24-A餌舍井工忤畫(huà)工貝ABC 1M-J晶誌拙/ _AE PH ITXk7、點(diǎn)擊 首頁(yè)”工作表中插入的按鈕，根據(jù)提示，瀏覽到原始數(shù)據(jù)工作簿。尺FJ幵 v 再帚蔬awrirw 昔薦工咋事&下一步，用鼠標(biāo)選擇要合并的數(shù)據(jù)范圍。注意：每個(gè)工作表數(shù)據(jù)可能不一樣，比如說(shuō)有的是10行數(shù)據(jù)，有的是30行數(shù)據(jù)。在這里我們可以用鼠標(biāo)選擇任意工作表的一個(gè)較大范圍，比如說(shuō)A1:D100，保證比最多行數(shù)的工作表數(shù)據(jù)還多就可以，一會(huì)再刪除空行。9、點(diǎn)擊確定按鈕，待代碼運(yùn)行完畢后，所有的數(shù)據(jù)就都合并到了合并匯總表”中。注意:1)A列

15、的文本說(shuō)明右側(cè)的數(shù)據(jù)來(lái)自于原始數(shù)據(jù)表的哪個(gè)工作表;2 )數(shù)據(jù)之間會(huì)有一些空行，下面通過(guò)篩選刪除。旦J合井工件義工耳XlEm XACDE1陳玉日期姓名一名稱數(shù)量24月10日陳玉G1110105034月11日陳玉G1274332844月14日陳玉GU64484954月18日陳玉G1205281364月18日陳玉G90780874月19日陳玉G1429239584月21日陳玉G1442268394月23日陳玉G11702011104月25日陳玉25日陳玉G1407794124月26日陳玉G12461998134月對(duì)日陳玉G127134551415161718192021康佑

16、紅B期姓名名稱數(shù)量224月16日康佑紅G1432779234月19日康佑紅24日康佑紅G13327592526272890空白”和標(biāo)題內(nèi)容。10、選中全部數(shù)據(jù)區(qū)域，執(zhí)行自動(dòng)篩選。然后選擇其中一個(gè)字段，選擇砂 合并工作表工貝J(I$E1 J陳玉234567484941041141241341415161718192021康佑紅A日期“姓名7名荊數(shù)宣匚A升序降序©按蠶抄停量z A333233343455- 3620L 4293二1484911、然后將篩選出來(lái)的無(wú)用行鼠標(biāo)右鍵刪除，再刪除A列整列即可，完成效杲如下圖:型合并工作表工MJcIsm xABJL _zl

17、01114151617181920212526272829303132333435363738394041 K k-12為雋切CD隸佑紅BE李秋香復(fù)制©粘貼(E)選擇性粘貼也插入行刪除行9)格斂(E)行(H)取消軸(W豹合幷工柞春工具刃« XABCD1日期名樸數(shù)計(jì)24月10日陳玉G1U0105034月11日條玉G1274332844月14日除玉G1164484954月18日陳玉G1205281364月18日陳玉G907808/74刖9日陳玉G14292396呂4月21日眛玉G1442266394月23日除玉G11703011104月25日陳玉G1366/648114月25日陳玉G1407 jf 794124月26日陳玉G124&/1998134月29日陳玉C12W3455144月16日康佑紅G1462779154月19日康佑紅G1