年底了，又到了分析年度匯總數(shù)據的時候。那么問題來了？怎么快速準確的匯總各個sheet的數(shù)據到一個sheet內？

小白總是被大神“用VBA代碼”一句話敷衍。今年不知道你學會沒有？

下面的案例為基本的合并工作表代碼，簡單高效，可以根據自己的實際需求修改。合并一班、二班、三班的成績到第一個SHEET總表。

Sub 合并工作表()

Rows('2:65536').Clear '刪除總表的原有數(shù)據

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