多个工作表数据合并到一个工作表

上传人:仙*** 文档编号:35539218 上传时间:2021-10-27 格式:DOC 页数:5 大小:924KB
返回 下载 相关 举报
多个工作表数据合并到一个工作表_第1页
第1页 / 共5页
多个工作表数据合并到一个工作表_第2页
第2页 / 共5页
多个工作表数据合并到一个工作表_第3页
第3页 / 共5页
点击查看更多>>
资源描述
如何将多个工作表的数据汇总到一个工作表1、一个工作簿里面有多个工作表,各工作表之间的字段是一致的,但数据不一致。由于工作需要,需要将各个工作表的数据汇总到一个表格里面做汇总分析,数据少、工作表数目不多的时候,CTRL+C后CTRL+V逐个复制粘贴是可以的,但数据量大、工作表数据多的时候,则可以用宏进行快速处理;2、从上图中,后面的5个工作表,里面是源数据。“合并报表”这个表,则是要将后面5个表格的数据汇总的表格,其内容为空。3、方法:使用宏快速汇总(1)录制宏 首先,点击文件菜单的“工具”菜单,选择“宏”“宏” 出现以下的宏界面,在“宏名”中按照自己喜好录入一个名称,这里录入“合并工作表”的名称,“位置”是指该宏可以在那个EXCEL工作簿中使用,这里选择“当前工作簿”。然后点击“创建”。 出现以下的宏录入界面在“Sub 合并工作表()”下面,将以下的字符复制粘贴过去Dim m As IntegerDim n As IntegerDim o As IntegerFor m = 2 To 6 n = Sheets(m).a65536.End(xlUp).Row o = Sheets(1).a65536.End(xlUp).Row Sheets(m).Select Range(a1, z & n).Select Range(a & n).Activate Selection.Copy Sheets(1).Select Range(a & o + 1).Select ActiveSheet.PasteNext特别注意这一段字符“For m = 2 To 6”,由于要汇总的数据的工作表有5个,加上“合并报表”这个工作表本身,一共是6个工作表,因此“For m = 2 To 6”中选择输入6,如果后面要汇总的数据工作表有3个,则是录入4,如果有12个,则是录入13,依次类推。然后,点击“文件”菜单,选择“关闭并返回到Micrlsoft Excel”。宏至此录入完毕。(2)使用已录制好的宏“合并工作表”,进行工作表的数据汇总。 首先,在“合并报表”中,点击点击文件菜单的“工具”菜单,选择“宏”“宏” 出现宏界面,点击选择“合并工作表”,然后点击“执行”。就能达到汇总的效果。要注意,为避免出错,最好检查以下汇总后的报表中有数据的行数,是否等于后面各个报表有数据的行数总和。 另外要注意,已经使用宏的报表,在保存时,会出现以下提示,点击确定即可。
展开阅读全文
相关资源
正为您匹配相似的精品文档
相关搜索

最新文档


当前位置:首页 > 办公文档 > 工作计划


copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!