もう1行下に行をコピーする最後に塗りつぶした列を確認する

Question

私はシートリストを持っています。私はリストの内容を自分のシート評価に移してほしい。しかし、私の評価シートは、すでに前の評価で構成されています。古い行のすぐ下に新しい行が必要です。どのように私はこれを達成することができますか？

私は以下のコードをコピーペーストの機能として持っています。

Sub lastweekctt() 
Worksheets("List").Range("A4:W1000").Copy _ 
Destination:=Worksheets("Evaluation").Range("A5") 
End Sub 

私は両方のシートの行4に自分のヘッダを持っています。あなたが最後の空白行を取得する必要があり

Answer 1

：

Sub lastweekctt() 

    Dim LastRow As Long 

    'get last row 
    LastRow = Worksheets("Evaluation").Cells(Rows.Count,1).End(xlUp).Row 
    Worksheets("List").Range("A4:W1000").Copy _ 
    Destination:=Worksheets("Evaluation").Range("A" & LastRow + 1) 
End Sub 

は、このヘルプを願っています。

Answer 2

あなたは

lLastRow = Worksheets("Evaluation").Cells(Worksheets("Evaluation").Rows.Count, 1).End(xlUp).Row 

最初にして、あなたの目的地の範囲は、それはまた、特定のワークシートにごRows.Countを修飾するのがベストでしょう。この

.Range("A" & lLastRow + 1)