VBA合并工作表（内附源代码）

年底了，又到了分析年度汇总数据的时候。那么问题来了？怎么快速准确的汇总各个sheet的数据到一个sheet内？

小白总是被大神“用VBA代码”一句话敷衍。今年不知道你学会没有？

下面的案例为基本的合并工作表代码，简单高效，可以根据自己的实际需求修改。合并一班、二班、三班的成绩到第一个SHEET总表。

Sub 合并工作表()

Rows('2:65536').Clear '删除总表的原有数据

Dim sht As Worksheet, rng As Range, row As Integer '定义变量

For Each sht In Worksheets '遍历工作簿中的所有工作表

  If sht.Name <> ActiveSheet.Name Then ' 判断工作表的名称是否等于活动工作表的名称

  Set rng = Range('a65536').End(xlUp).Offset(1, 0)

  row = sht.Range('a2').CurrentRegion.Rows.Count - 1

  sht.Range('a2').Resize(row, 2).Copy rng ' 粘贴到汇总表

  End If

Next

End Sub