Excel多个sheet汇总到一个sheet

在文件操作过程中，常常遇到如下几种情况，如果数据量小，靠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职场精英

赛马场上，给你一把威猛的弓箭~