VBA这段代码怎么改实现下次粘贴到下一行，复制的位置不变

更新时间：2018-09-02 13:16:42 171次访问

Sub 宏4()

'

' 宏4 宏

'

'

    Sheets("Sheet3").Select

    Range("A1:BN1").Select

    Selection.Copy

    Sheets("Sheet2").Select

    Range("A3").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

Sub 宏4()

    Sheets("Sheet3").Select

    Range("A1:BN1").Select

    Selection.Copy

    Sheets("Sheet2").Select

    Range("A"&sheet2.range("A65536").end(xlup).row+1)).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub