VBA遍历各分表汇总为一张总表

Sub huizongdata()

rows("3:10000").Clear

'第一步是先清空汇总表的数据，这里是从第3行开始清理到10000行，可以自己修改。

Dim st As Worksheet, rng As Range, rrow As Integer

'定义一些需要用到的变量

For Each st In Worksheets  '循环开始，遍历所有的工作表

   If st.Name ActiveSheet.Name Then

   ' 若遍历的当前工作表不是当前的活动工作表

       Set rng = Range("A10000").End(xlUp).Offset(1, 0)

       '每次循环就动态定位需要拷贝数据的区域，即获得A列第一个空的单元格

       rrow = st.Range("A3").CurrentRegion.rows.Count - 2

       '获得每个工作表中的数据记录数，即行数，同时需要减去表头的行数，这里是减掉2行。

       st.Range("A3").Resize(rrow, 4).Copy rng

       '将数据扩展rows行，4列拷贝到数据，并粘贴到汇总表

   End If

Next

End Sub

转自：excel快速汇总同一工作簿中多个工作表的数据-百度经验 (baidu.com)