excel如何快速把多个工作表合并到一个excel表

excel如何快速把多个工作表合并到一个excel表

ID:23125916

大小:724.00 KB

页数:12页

时间:2018-11-04

excel如何快速把多个工作表合并到一个excel表_第1页
excel如何快速把多个工作表合并到一个excel表_第2页
excel如何快速把多个工作表合并到一个excel表_第3页
excel如何快速把多个工作表合并到一个excel表_第4页
excel如何快速把多个工作表合并到一个excel表_第5页
资源描述:

《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,SourceDataColumnsAsVariantDimTitleRow,TitleColumnAsRangeDimNumAsIntegerDimDataRowsAsLongDataRow

3、s=1DimTitleArr()DimChoiceDimMyName$,MyFileName$,ActiveSheetName$,AddressAll$,AddressRow$,AddressColumn$,FileDir$,DataSheet$,myDelimiter$Dimn,in=1i=1Application.DisplayAlerts=FalseWorksheets("合并汇总表").DeleteSetwsNewWorksheet=Worksheets.Add(,after:=Worksheets(Worksheets.Count))wsNewWo

4、rksheet.Name="合并汇总表"MyFileName=Application.GetOpenFilename("Excel工作薄(*.xls*),*.xls*")IfMyFileName="False"ThenMsgBox"没有选择文件!请重新选择一个被合并文件!",vbInformation,"取消"ElseWorkbooks.OpenFilename:=MyFileNameNum=ActiveWorkbook.Sheets.CountMyName=ActiveWorkbook.NameSetDataSource=Application.Input

5、Box(prompt:="请选择要合并的数据区域:",Type:=8)AddressAll=DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows=Selection.Rows.CountSourceDataColumns=Selection.Columns.CountApplication.ScreenUpdating=FalseApplication.EnableEvents=FalseFori=1ToNumActiveWorkbook.She

6、ets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName=ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A"&DataRows).Value=ActiveSheetNameActiveWorkb

7、ook.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:=xlPasteValues,O

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。