別のシートの最後に行とペーストをコピーします。

Question

Sheet2から3行以下をコピーして、Sheet1の最後に貼り付けます。 Sheet2の行の長さは異なります。シート2の終わりまでrow3、row4,5などを選択しているかどうかはわかりません。

これまでのコードです。範囲で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

あなただけの次のコードを使用してシート2の終わりまで行3からコピーすることができます。

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