อยากทราบการ Copy Paste ด้วย VBA ไปทุกชีททำอย่างไร

[tsihut]

สวัสดีครับ ผมมือใหม่ทดลองสร้าง VBA ด้วยการสร้างปุ่ม Run เพื่อ Copy Cell A2:B2 มาต่อท้ายช่องว่างด้านล่างคือ A5:B5ในชีท ABC ได้แล้ว แต่ถ้าต้องการให้ทำแบบนี้พร้อมกันกับ sheet อื่นๆด้วย คือแต่ละชีท จะ Copy Cell A2:B2 ไปวางต่อในช่องว่างของแถวถัดไป ในชีทอื่นพร้อมกันทำอย่างไรครับ ขอบคุณครับ

Code: Select all

Sub Macro1()
' Macro1 มาโคร
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("A4").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
End Sub

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub Copy()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Select
        Range("A2").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Application.CutCopyMode = False
        Selection.Copy
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
        ActiveSheet.Paste
    Next sh
End Sub