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

...wd......wd......wd...excel如何快速把多個(gè)工作表合并到一個(gè)excel表有這么一種情況，就是我們有很多張excel，而且excel表里面的公式根本一樣，我們就想快速的把這些excel合并在一起，意思在合并在一個(gè)excel頁面，這樣可以方便我們分析和統(tǒng)計(jì)，那么excel如何快速把多個(gè)工作表合并到一個(gè)excel表下面為大家介紹這種方法，希望能幫助到大家。工具/原料Excel操作步驟：1、原始數(shù)據(jù)所在工作簿包含多個(gè)格式一樣的工作表，只不過每個(gè)工作表內(nèi)容不同，比方說不同人名的工作表數(shù)據(jù)或者不同部門填寫的數(shù)據(jù)。2、在原始數(shù)據(jù)同目錄下新建一個(gè)工作簿，建設(shè)兩個(gè)工作表，名稱分別為“首頁〞和“合并匯總表〞。3、按Alt+F11進(jìn)入VBA代碼編輯和調(diào)試界面。4、根據(jù)以下列圖提示，插入一個(gè)模塊。5、將下述代碼粘貼到模塊空白處：復(fù)制代碼代碼如下:SubCombineSheetsCells()DimwsNewWorksheetAsWorksheetDimcelAsRangeDimDataSource,RowTitle,ColumnTitle,SourceDataRows,SourceDataColumnsAsVariantDimTitleRow,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"沒有選擇文件！請(qǐng)重新選擇一個(gè)被合并文件！",vbInformation,"取消"ElseWorkbooks.OpenFilename:=MyFileNameNum=ActiveWorkbook.Sheets.CountMyName=ActiveWorkbook.NameSetDataSource=Application.InputBox(prompt:="請(qǐng)選擇要合并的數(shù)據(jù)區(qū)域：",Type:=8)AddressAll=DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).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).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).ActivateNextiApplication.ScreenUpdating=TrueApplication.EnableEvents=TrueEndIfWorkbooks(MyName).CloseEndSub6、在“首頁〞工作表中按以下列圖示范插入一個(gè)窗體控件并指定宏為插入的代碼名稱。7、點(diǎn)擊“首頁〞工作表中插入的按鈕，根據(jù)提示，瀏覽到原始數(shù)據(jù)工作簿。8、下一步，用鼠標(biāo)選擇要合并的數(shù)據(jù)范圍。注意：每個(gè)工作表數(shù)據(jù)可能不一樣，比方說有的是10行數(shù)據(jù)，有的是30行數(shù)據(jù)。在這里我們可以用鼠標(biāo)選擇任意工作表的一個(gè)較大范圍，比方說A1:D100，保證比最多行數(shù)的工作表數(shù)據(jù)還多就可以，一會(huì)再刪除空行。9、點(diǎn)擊確定按鈕，待代碼運(yùn)行完畢后，所有的數(shù)據(jù)就都合并到了“合并匯總表