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

1、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è)工作簿，建立兩個(gè)工作表，名稱分別為“首頁”和“合并匯總表”。1 / 153、按Al

2、t+F11進(jìn)入VBA代碼編輯和調(diào)試界面。4、根據(jù)下圖提示，插入一個(gè)模塊。5、將下述代碼粘貼到模塊空白處：復(fù)制代碼代碼如下:Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1D

3、im TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets("合并匯總表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Cou

4、nt)wsNewWorksheet.Name = "合并匯總表"MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "沒有選擇文件！請重新選擇一個(gè)被合并文件！", vbInformation, "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.Count

5、MyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:="請選擇要合并的數(shù)據(jù)區(qū)域：", Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = F

6、alseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并匯總表").SelectActiveWorkbook.Shee

7、ts("合并匯總表").Range("A" & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets("合并匯總表").Range(Cells(DataRows, 2), Cells(DataRows, 2).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecia

8、l Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub6、在“首頁”工作表中按下圖示范插入一個(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ù)還多就可以，一會再刪除空行。9、點(diǎn)擊確定按鈕，待代碼運(yùn)行完畢后，所有的數(shù)據(jù)就都合并到了“合并匯總表”