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