版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、快速合并单个excel表中的多个sheet的工作页很多朋友会遇到这样的问题,就是很有很多页的数据,少的有几十页,多的可能有几百页,然后需要合并到一个页面做数据分析,如果一页页的复制粘贴的话,就比较麻烦。下面我就介绍一种利用excel的宏计算来解决这个问题。方法:1. 首先我们要有自己的excel数据,并且我们需要的是microsoft excel,WPS没有这些负责的功能。比如我下面举例的,我自己有205页的数据需要合并,如图所示。2. 看到这么多数据页要合并,如果是复制粘贴的话,工作量就很大了。我们现在开始合并,首先要在最前页新建一个工作表。如图:3. 在新建的sheet表中“右键”,找到“
2、查看代码”,然后看到宏计算界面。如图所示:4. 看到宏计算界面,我们就只需要把下面的代码复制进去,代码如下,效果如下:Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1
3、Sheets(j).UsedRange.Copy Cells(X, 1) End IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"End Sub5. 做完上面的事情,然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了,合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示:6. 合并后的效果如下图,我们看到的是合并之后有8000多行,就是205页合并后的结果。谢谢。如有疑问,请留言。E
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 妊娠期糖尿病英语
- 现代工程技术概述模板
- 成本管理会计品种法实训
- 山东中医药高等专科学校《现代数学观点下的中学数学》2023-2024学年第一学期期末试卷
- 小学生活动安全教案
- 山东中医药大学《电力电子学双》2023-2024学年第一学期期末试卷
- 山东英才学院《高等数学A(1)》2023-2024学年第一学期期末试卷
- 医生皮肤科技术培训加强医生在皮肤科各项技术和操作中的熟练度和安全性
- 劳务服务培训合同范例
- 个人房车租赁合同范例
- 校园暴力课件
- 眼科延续性护理
- 学习新质生产力什么是新质生产力课件
- 高等数学(第二版)课件:微分中值定理及导数的应用
- 提高大面积金刚砂地坪施工质量【QC成果】
- 2024年广东省广州市越秀区中考语文一模试卷
- 小学信息技术三年级上册第9课 《电子文本需保存》说课稿
- 运动解剖学(72学时)学习通超星期末考试答案章节答案2024年
- 《专业演讲技巧》课件
- 八年级上册物理全册知识点总结(人教)
- 人教版八年级英语上册期末复习选词填空练习
评论
0/150
提交评论