在文件操作过程中，常常遇到如下几种情况，如果数据量小，靠copy即可操作，如果数据量大，那简单copy耗时且数据容易出错，以下案例会分别介绍。
多个文件的第一个或多个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职场精英
赛马场上，给你一把威猛的弓箭~
