VBAの勉強 まとめシートにコピー
左から２番目にあるシートの値を、まとめシートの下の部分に
コピーをしたいです。
まずは、答えから
Sub シートまとめ()
Dim SmaxRow As Long
SmaxRow = Sheets(2).Cells(Rows.Count, 13).End(xlUp).Row
Dim DmaxRow As Long
DmaxRow = Sheets("まとめ").Cells(Rows.Count, 1).End(xlUp).Row
Sheets(2).Range("A2:M" & SmaxRow).Copy Destination:=Sheets("まとめ").Range("A" & DmaxRow + 1)
End Sub
「.Cells(Rows.Count, 13).End(xlUp).Row」は本当に必要な知識ですね。
13の部分は列の番号ですから、状況に応じて変更が必要です。
最終行を求めるというテクニックを使って、各種処理を進めるイメージです。
簡単ですね、
本日はここまでです。
お疲れさまでした。