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)

  • 0
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值