[已解决]用vba自动提取工作表数据,要求见附件

万杰

用vba自动提取工作表数据,要求见附件,20个BB聊表心意 RwCIV4Sp.rar (4.33 KB, 下载次数: 46)

2010-3-20 11:58 上传

点击文件名下载附件
用vba自动提取工作表数据,要求见附件

最佳答案

月排行榜 / 总排行榜

搁浅2008

2010-3-20 16:36

Sub aa()
    Dim arr
    Dim i As Long
    For i = 2 To Sheets.Count
        arr = Sheets(i).Range("B4:F6")
        Sheet1.Range("B65536").End(xlUp).Offset(1, 0).Resize(3, 5) = arr
    Next i
End Sub

跳转到最佳答案楼层

extyg

Sub test()
    Dim xlSht As Worksheet
    Worksheets("汇总").Range("b4:f65536").ClearContents
    For Each xlSht In Worksheets
        With xlSht
            If .Name <> "汇总" Then .Range("b4:f6").Copy Worksheets("汇总").Range("b65536").End(xlUp).Offset(1, 0)
        End With
    Next
End Sub

飞雨飘

Sub aa()
For i = 2 To Sheets.Count
j = [b65536].End(xlUp).Row + 1
Sheets(i).Range("B4:F6").Copy Cells(j, 2)
Next
End Sub

万杰

只复制值怎么写?不要连公式格式一起复制,我录制了一下宏  老是修改不好

开辆小富康

类似于这样子只复制值。sheet1.range("A1:B4")=sheet2.range("B2:C5").value

搁浅2008

Sub aa()
    Dim arr
    Dim i As Long
    For i = 2 To Sheets.Count
        arr = Sheets(i).Range("B4:F6")
        Sheet1.Range("B65536").End(xlUp).Offset(1, 0).Resize(3, 5) = arr
    Next i
End Sub

zsd5237

学习[em02][em02]