资源描述：
《excel如何快速把多个工作表合并到-个excel表》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、资料excel如何快速把多个工作表合并到一个excel表有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法，希望能帮助到大家。工具/原料Excel操作步骤：1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“
2、合并汇总表”。.资料3、按Alt+F11进入VBA代码编辑和调试界面。4、根据下图提示，插入一个模块。.资料5、将下述代码粘贴到模块空白处：复制代码代码如下:SubCombineSheetsCells()DimwsNewWorksheetAsWorksheetDimcelAsRangeDimDataSource,RowTitle,ColumnTitle,SourceDataRows,SourceDataColumnsAs.资料VariantDimTitleRow,TitleColumnAsRangeDimNumAsIntegerDimDataRowsAsLong
3、DataRows=1DimTitleArr()DimChoiceDimMyName$,MyFileName$,ActiveSheetName$,AddressAll$,AddressRow$,AddressColumn$,FileDir$,DataSheet$,myDelimiter$Dimn,in=1i=1Application.DisplayAlerts=FalseWorksheets("合并汇总表").DeleteSetwsNewWorksheet=Worksheets.Add(,after:=Worksheets(Worksheets.Count))ws
4、NewWorksheet.Name="合并汇总表"MyFileName=Application.GetOpenFilename("Excel工作薄(*.xls*),*.xls*")IfMyFileName="False"ThenMsgBox"没有选择文件！请重新选择一个被合并文件！",vbInformation,"取消"ElseWorkbooks.OpenFilename:=MyFileNameNum=ActiveWorkbook.Sheets.CountMyName=ActiveWorkbook.NameSetDataSource=Application.In
5、putBox(prompt:="请选择要合并的数据区域：",Type:=8)AddressAll=DataSource.Address.资料ActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows=Selection.Rows.CountSourceDataColumns=Selection.Columns.CountApplication.ScreenUpdating=FalseApplication.EnableEvents=FalseFori=1ToNumActiveWorkbook
6、.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName=ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A"&DataRows).Value=ActiveSheetNameActiveWor
7、kbook.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.PasteSpe
8、cialPaste:=x
