已阅读5页,还剩7页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
excel如何快速把多个工作表合并到一个excel表有这么一种情况,就是我们有很多张excel,而且excel表里面的公式基本一样,我们就想快速的把这些excel合并在一起,意思在合并在一个excel页面,这样可以方便我们分析和统计,那么excel如何快速把多个工作表合并到一个excel表?下面为大家介绍这种方法,希望能帮助到大家。工具/原料Excel操作步骤:1、原始数据所在工作簿包含多个格式相同的工作表,只不过每个工作表内容不同,比如说不同人名的工作表数据或者不同部门填写的数据。2、在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为“首页”和“合并汇总表”。3、按Alt+F11进入VBA代码编辑和调试界面。4、根据下图提示,插入一个模块。5、将下述代码粘贴到模块空白处:复制代码代码如下: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 = 1Dim 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.Count)wsNewWorksheet.Name = 合并汇总表MyFileName = Application.GetOpenFilename(Excel工作薄 (*.xls*),*.xls*)If MyFileName = False ThenMsgBox 没有选择文件!请重新选择一个被合并文件!, vbInformation, 取消ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:=请选择要合并的数据区域:, Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.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.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial 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、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。7、点击“首页”工作表中插入的按钮,根据提示,浏览到原始数据工作簿。8、下一步,用鼠标选择要合并的数据范围。注意:每个工作表数据可能不一样,比如说有的是10行数据,有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围,比如说A1:D100,保证比最多行数的工作表数据还多就可以,一会再删除空行。9、点击确定按钮,待代码运行完毕后,所有的数据就都合并到了“合并汇总表”中。注意:1)
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 500kV变电站变压器运行及继电保护措施深入探讨
- 3D打印技术对产品设计的影响研究
- 35kV不接地系统两相异地接地故障分析
- 220kV高压输电线路导线架设施工技术要点探究
- 2021年高考全国乙卷化学试题解析
- 2019年无锡中考第18题的多解、变式与教学思考
- 1997-2020年中国大陆登革热病例数量变化及时间序列拟合研究
- 110工法在近距离煤层中的应用
- 10kV配电线的防雷问题成因及对策
- 0~3岁儿童学习品质的结构与培养策略-基于美国各州早期学习标准的内容分析
- 高原疾病防治知识
- 国内石墨烯行业分析
- 《基因技术》课件
- 中国电信网络资源管理系统介绍
- 食品着色剂使用注意事项及发色剂
- 服务管理的目标和目标实现方法
- 蒙古元素景点策划方案
- 中医药在眼科疾病中的应用
- 【京东绿色物流发展现状、问题及优化建议探析14000字(论文)】
- 浅谈日本现代设计对中国设计发展的启示
- JJG 443-2023燃油加油机(试行)
评论
0/150
提交评论