excel拼接数据宏

将sheet2的A2 和 G2   加上  sheet5的A2和B2合一起生成新的sheet--就是将两个sheet的指定列前后拼接一起作为一个新的sheet

 

Sub addwork()

    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "临时合并数据"


    Dim s, sht, shts
    Dim arr, brr1, brr2, c%
    Set shts = Sheets("临时合并数据")

    shts.Cells.Clear

    '拷贝列明
    Sheets(5).Range("A1:B1").Copy shts.Range("A1:B1")

    '获取第二个sheet的所有数据
    arr = ThisWorkbook.Sheets(2).UsedRange.Value
    '获取第二列和第七列的数据并转换成数组
    brr1 = Application.Transpose(Application.Index(arr, , 2))
    brr2 = Application.Transpose(Application.Index(arr, , 7))

    '将获取的数组（第二列和第七列的数据）拷贝给目标sheet
    With shts
         .Cells(1, 1).Resize(UBound(brr1), 1) = Application.Transpose(brr1)'遍历brr1的数据到目标sheet的每一行的第一个单元格
         .Cells(1, 2).Resize(UBound(brr2), 1) = Application.Transpose(brr2)'遍历brr2的数据到目标sheet的每一行的第二个单元格
     End With

    '获取第五个sheet的所有数据
    Set sht = Sheets(5)
    '拷贝A2:B2的数据到目标的sheet
    sht.Range("A2:B2" & sht.Columns(1).Find("*", , , , 1, 2).Row).Copy shts.Range("A" & (shts.Columns(1).Find("*", , , , 1, 2).Row + 1))

End Sub