Snasui Excel Forum

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

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