エクセルのマクロでデータの最終行を判断するには

質問

エクセルのマクロでデータの最終行を判断するにはどのような構文を書けばいいですか
またデータの最終行の次の行から(例えば15行目までにデータが有る場合16行目から)他のブックからコピー・ペーストするににはどうしたら良いですか
わかりにくくすいません

回答No.1

plus_x · ベストアンサー

最終行の判断は下記の方法で出来ます。(他にも色々方法はあります）

●A列に必ず値が入っている場合
最終行 = Cells(Rows.Count, 1).End(xlUp).Row

●A列、B列、C列のいずれかに必ず値が入っている場合
for i = 1 to 3
if ( 最終行 < Cells(Rows.Count, i).End(xlUp).Row) then 最終行 = Cells(Rows.Count, i).End(xlUp).Row)
next i

上記で最終行が判断できたら、＋１行の所にペーストします。
（元シートのA1:A3を先シートのA列の最終行の次にペーストする場合）
Worksheets("元").Range("A1:A3").copy
Worksheets("先").cells(最終行 + 1, 1).PasteSpecial