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

excel如何快速把多個(gè)工作表合并到一個(gè)excel表excel如何快速把多個(gè)工作表合并到一個(gè)excel表12/12excel如何快速把多個(gè)工作表合并到一個(gè)excel表優(yōu)選文檔excel如何快速把多個(gè)工作表合并到一個(gè)excel表有這么一種情況，就是我們有很多張excel，而且excel表里面的公式基真相同，我們就想快速的把這些excel合并在一起，意思在合并在一個(gè)excel頁(yè)面，這樣可以方便我們剖析和統(tǒng)計(jì)，那么excel如何快速把多個(gè)工作表合并到一個(gè)excel表？下面為大家介紹這種方法，希望能給大家?guī)?lái)幫助。工具/原料Excel操作步驟：1、原始數(shù)據(jù)所在工作簿包含多個(gè)格式相同的工作表，只但是每個(gè)工作表內(nèi)容不一樣樣，比方說(shuō)不一樣樣人名的工作表數(shù)據(jù)也許不一樣樣部門填寫(xiě)的數(shù)據(jù)。2、在原始數(shù)據(jù)同目錄下新建一個(gè)工作簿，建立兩個(gè)工作表，名稱分別為“首頁(yè)”和“合并匯總表”。.優(yōu)選文檔3、按Alt+F11進(jìn)入VBA代碼編寫(xiě)和調(diào)試界面。4、依照以以下圖提示，插入一個(gè)模塊。.優(yōu)選文檔5、將下述代碼粘貼到模塊空白處：復(fù)制代碼代碼以下:SubCombineSheetsCells( )DimwsNewWorksheetAsWorksheetDimcelAsRangeDimDataSource,RowTitle,ColumnTitle,SourceDataRows,SourceDataColumnsAsVari.優(yōu)選文檔antDimTitleRow,TitleColumnAsRangeDimNumAsIntegerDimDataRowsAsLongDataRows=1DimTitleArr( )DimChoiceDimMyName$,MyFileName$,ActiveSheetName$,AddressAll$,AddressRow$,AddressColumn$,FileDir$,DataSheet$,myDelimiter$Dimn,in=1i=1Application.DisplayAlerts=FalseWorksheets("合并匯總表").DeleteSetwsNewWorksheet=Worksheets.Add(,after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name="合并匯總表"MyFileName=Application.GetOpenFilename("Excel工作薄(*.xls*),*.xls*")IfMyFileName="False"ThenMsgBox"沒(méi)有選擇文件！請(qǐng)重新選擇一個(gè)被合并文件！",vbInformation,"取消"ElseWorkbooks.OpenFilename:=MyFileNameNum=MyName=ActiveWorkbook.NameSetDataSource=Application.InputBox(prompt:="請(qǐng)選綱領(lǐng)合并的數(shù)據(jù)地域：",Type:=8)AddressAll=DataSource.Address.優(yōu)選文檔ActiveWorkbook.ActiveSheet.Range(AddressAll).SelectApplication.ScreenUpdating=FalseApplication.EnableEvents=FalseFori=1ToNumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并匯總表").SelectActiveWorkbook.Sheets("合并匯總表").Range("A"&DataRows).Value=ActiveSheetNameActiveWorkbook.Sheets("合并匯總表").Range(Cells(DataRows,2),Cells(DataRows,2)).SelectSelection.PasteSpecialPaste:=xlPasteColumnWidths,Operation:=xlNone,_SkipBlanks:=False,Transpose:=FalseSelection.PasteSpecialPaste:=xlPasteAll,Operation:=xlNone,SkipBlanks:=_False,Transpose:=FalseSelection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_:=False,Transpose:=FalseDataRows=DataRows+SourceDataRowsWorkbooks(MyName).ActivateNexti.優(yōu)選文檔Application.ScreenUpdating=TrueApplication.EnableEvents=TrueEndIfWorkbooks(MyName).CloseEndSub6、在“首頁(yè)”工作表中按以以下圖示范插入一個(gè)窗體控件并指定宏為插入的代碼名稱。.優(yōu)選文檔7、點(diǎn)擊“首頁(yè)”工作表中插入的按鈕，依照提示，閱讀到原始數(shù)據(jù)工作簿。8、下一步，用鼠標(biāo)選綱領(lǐng)合并的數(shù)據(jù)范圍。注意：每個(gè)工作表數(shù)據(jù)可能不一樣樣樣，比方說(shuō)有的是10行數(shù)據(jù)，有的是30行數(shù)據(jù)。在這里我們可以用鼠標(biāo)選擇任意工作表的一個(gè)較大范圍，比方說(shuō)A1:D100，保證比最多行數(shù)的工作表數(shù)據(jù)還多就可以，一會(huì)再刪除空行。.優(yōu)選文檔9、點(diǎn)擊確定按鈕，待代碼運(yùn)行達(dá)成后，全部的數(shù)據(jù)就都合并到了“合并匯總表”中。注意：1）A列的文本說(shuō)明右側(cè)的數(shù)據(jù)來(lái)自于原始數(shù)據(jù)表的哪個(gè)工作表；