多个汇总到一个

　　在文件操作过程中，常常遇到如下几种情况，如果数据量小，靠copy即可操作，如果数据量大，那简单copy耗时且数据容易出错，以下案例会分别介绍。
　　多个文件的第一个或多个sheet数据合并一个文件的一个sheet中。
　　一个或多个文件的sheet数据复制到一个文件中。
　　表内多个sheet汇总到一个Sheet。
　　按某一标题下的内容拆分成多个sheet。
　　案例展示
　　案例：本次介绍多sheet汇总到一个Sheet。
　　操作步骤如下(内行看门道, 外行直接复制运行)：
　　1. 打开要复制其他sheet进来的Excel的文件。
　　2. 按ALT F11弹出代码编辑框。
　　3. 复制如下代码到编辑框中。
　　4. 点击运行按钮。
　　Sub Mergesheet()
　　Dim Endrow ＂定义参数
　　Dim i ＂定义参数
　　Application.ScreenUpdating = False
　　For i = 1 To Sheets.Count ＂从1开始到最后一个表循环
　　If Sheets(i).Name <> ActiveSheet.Name Then ＂忽略激活的表
　　Endrow = Range(＂A65536＂).End(xlUp).Row
　　Sheets(i).UsedRange.Copy Cells(Endrow 1, 1) ＂其他表数据区复制到激活的表
　　End If
　　Next i
　　Range(＂B1＂).Select ＂光标定位到B1单元格
　　Application.ScreenUpdating = True
　　MsgBox ＂Sheet合并完毕！＂, vbInformation, ＂信息提示＂ ＂完成后提示
　　End Sub
　　Excel职场精英
　　赛马场上，给你一把威猛的弓箭~