可変位置の最後の行を別のシートにコピーするVBA

Question

あるシートの最後の行（可変位置）を別のシートの最後のデータ行（可変位置）にコピーしようとしています。 これまで私はThis solutionとThis solutionを試しました。彼らは両方とも、最初のスプレッドシート（​​WWData）の正確な最後の行の代わりに一連の行をコピーしました。

Sub copylastrow() 
Dim Last_Row1 As Long 
Dim Last_Row2 As Long 
Last_Row1 = WWData.Cells(Rows.Count, 1).End(xlUp).Row 
Last_Row2 = WWOutput.Cells(Rows.Count, 1).End(xlUp).Row + 1 
WWData.Cells(Last_Row1).Copy WWOutput.Cells(Last_Row2) 
End Sub 

私は間違っていますか？注：WWDataおよびWWOutputは、以前に定義されています。この上でつまずく人のために任意のジョシュ

Answer 1

は後で私は2つの勧告の組み合わせを使用して終了しました。適切なスプレッドシートでRows.Countの資格を取得しました。最後の行の.Cellsを.Rowsに置き換えました。

終了コードは次のようになります。

Last_Row1 = WWData.Cells(WWData.Rows.Count, 1).End(xlUp).Row 
Last_Row2 = WWOutput.Cells(WWOutput.Rows.Count, 1).End(xlUp).Row + 1 
WWData.Rows(Last_Row1).Copy WWOutput.Rows(Last_Row2) 

大が@ScottCranerに感謝し、2つの引数が必要ですcells`