复制行并粘贴到另一个工作表的末尾

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