複製行並粘貼到另一個工作表的末尾

Question

我想從Sheet2複製第3行和以下行並粘貼到Sheet1的末尾。 Sheet2中的行具有不同的長度。不知道我是否選擇了row3，然後是row4，5等，直到sheet2結束。

我的代碼到目前爲止。通過一系列LASTROW和環 -

'輸入代碼在這裏

Sub Macro5() 
Dim LastRow As Long 
Worksheets("Sheet2").Activate 

With ActiveSheet.UsedRange 
    LastRow = .Rows(.Rows.Count).Row 
    .Cell("A", 3).EntireRow.Select 
    Do Until LastRow 
     Selection.Copy 
     Sheets("Sheet1").Range("A1").End(xlDown).Offset(1, 0).Paste 
    Loop 
End With 

End Sub 

我應該設置從ROW3範圍：我收到錯誤？

Answer 1

用戶可於3行復制，直到第2頁的使用下面的代碼末尾：

Public Sub copy_rows() 

Dim LastRow As Long 

LastRow = Worksheets("Sheet2").UsedRange.Rows.count 
Worksheets("Sheet2").Rows("3:" & LastRow).Select 
Selection.Copy 

End Sub 

Answer 2

希望你正在尋找此代碼。

Sub copy() 
    Dim Lastrow As Long 
    Lastrow = Sheets("Sheet2").UsedRange.Rows.Count 
    For i = 3 To Lastrow 
     Sheets("Sheet2").Rows(i).copy Sheets("Sheet1").Range("A" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1) 
    Next i 
End Sub