在文件操作过程中,常常遇到如下几种情况,如果数据量小,靠copy即可操作,如果数据量大,那简单copy耗时且数据容易出错,以下案例会分别介绍。 多个文件的第一个或多个sheet数据合并一个文件的一个sheet中。 一个或多个文件的sheet数据复制到一个文件中。 表内多个sheet汇总到一个Sheet。 按某一标题下的内容拆分成多个sheet。 案例展示 案例:本次介绍多sheet汇总到一个Sheet。 操作步骤如下(内行看门道,外行直接复制运行): 1。打开要复制其他sheet进来的Excel的文件。 2。按ALTF11弹出代码编辑框。 3。复制如下代码到编辑框中。 4。点击运行按钮。 SubMergesheet() DimE定义参数 D定义参数 Application。ScreenUpdatingFalse Fori1ToSheets。C从1开始到最后一个表循环 IfSheets(i)。NActiveSheet。NameT忽略激活的表 EndrowRange(A65536)。End(xlUp)。Row Sheets(i)。UsedRange。CopyCells(Endrow1,1)其他表数据区复制到激活的表 EndIf Nexti Range(B1)。S光标定位到B1单元格 Application。ScreenUpdatingTrue MsgBSheet合并完毕!,vbInformation,信息提示完成后提示 EndSub Excel职场精英 赛马场上,给你一把威猛的弓箭