將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

轉載于:https://www.cnblogs.com/onlymate/p/9870929.html

總結

以上是生活随笔為你收集整理的excel拼接数据宏的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。