資源描述:
《excel如何快速把多個工作表合并到一個excel表》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、excel如何快速把多個工作表合并到一個excel表有這么一種情況,就是我們有很多張excel,而且excel表里面的公式基本一樣,我們就想快速的把這些excel合并在一起,意思在合并在一個excel頁面,這樣可以方便我們分析和統(tǒng)計,那么excel如何快速把多個工作表合并到一個excel表?下面為大家介紹這種方法,希望能幫助到大家。工具/原料Excel操作步驟:1、原始數(shù)據(jù)所在工作簿包含多個格式相同的工作表,只不過每個工作表內(nèi)容不同,比如說不同人名的工作表數(shù)據(jù)或者不同部門填寫的數(shù)據(jù)。2、在原始數(shù)據(jù)同目錄下新建
2、一個工作簿,建立兩個工作表,名稱分別為“首頁”和“合并匯總表”。3、按Alt+F11進入VBA代碼編輯和調(diào)試界面。4、根據(jù)下圖提示,插入一個模塊。5、將下述代碼粘貼到模塊空白處:復(fù)制代碼代碼如下:SubCombineSheetsCells()DimwsNewWorksheetAsWorksheetDimcelAsRangeDimDataSource,RowTitle,ColumnTitle,SourceDataRows,SourceDataColumnsAsVariantDimTitleRow,TitleCo
3、lumnAsRangeDimNumAsIntegerDimDataRowsAsLongDataRows=1DimTitleArr()DimChoiceDimMyName$,MyFileName$,ActiveSheetName$,AddressAll$,AddressRow$,AddressColumn$,FileDir$,DataSheet$,myDelimiter$Dimn,in=1i=1Application.DisplayAlerts=FalseWorksheets("合并匯總表").DeleteSe
4、twsNewWorksheet=Worksheets.Add(,after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name="合并匯總表"MyFileName=Application.GetOpenFilename("Excel工作薄(*.xls*),*.xls*")IfMyFileName="False"ThenMsgBox"沒有選擇文件!請重新選擇一個被合并文件!",vbInformation,"取消"ElseWorkbooks.OpenFilename
5、:=MyFileNameNum=ActiveWorkbook.Sheets.CountMyName=ActiveWorkbook.NameSetDataSource=Application.InputBox(prompt:="請選擇要合并的數(shù)據(jù)區(qū)域:",Type:=8)AddressAll=DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows=Selection.Rows.CountSourceD
6、ataColumns=Selection.Columns.CountApplication.ScreenUpdating=FalseApplication.EnableEvents=FalseFori=1ToNumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName=ActiveWorkbook.ActiveSheet.NameWorkboo
7、ks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并匯總表").SelectActiveWorkbook.Sheets("合并匯總表").Range("A"&DataRows).Value=ActiveSheetNameActiveWorkbook.Sheets("合并匯總表").Range(Cells(DataRows,2),Cells(DataRows,2)).SelectSelection.PasteSpecialPaste:=xlPasteCo
8、lumnWidths,Operation:=xlNone,_SkipBlanks:=False,Transpose:=FalseSelection.PasteSpecialPaste:=xlPasteAll,Operation:=xlNone,SkipBlanks:=_False,Transpose:=FalseSelection.PasteSpecialPaste:=xlPasteValues,O