VBA-合并多个相同格式的worksheet数据到一个worksheet_henry_dx_新浪博客

'合并多个相同格式的worksheet数据到一个worksheet
Sub hebing()
    Rows("2:1024576").Clear
    Dim sht As Worksheet, xrow As Integer, rng As Range
    For Each sht In Worksheets
        If sht.Name <> ActiveSheet.Name Then
           Set rng = Range("A1024576").End(xlUp).Offset(1, 0)   '获得A列第一个空单元格
           xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1  '获得各分表中记录的条数
           sht.Range("A2").Resize(xrow, 4).Copy rng            '复制记录到汇总表,4代表列数
           End If
    Next
End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值