シートの最終行から別のシートのセルをコピーしたいのですが

質問

（Sheet1)の最終行の次に(空白行AX,BX,CX,DX)に別のシート(Sheet2)のセルD2,G3,S4,F5をコピーしたいのですがＶＢＡでどのように記述すればいいのでしょうか？
よろしくお願いします。

回答No.1

pbforce · ベストアンサー

r=Range("A65536").End(xlUp).Row
で変数rに最終行の行番号が取得できます。

エクセル2007の場合はもっと下まで使えるようですので"A65536"をかえて下さい。

補足

早速ありがとうございました。最終行は判りましたが、最終行の次の行はどうすればいいのですか？
セル番号はどのようにつければいいのですか？もう少し具体的に教えていただくとありがたいです。
ちなみにエクセル２００３です。

回答No.3

pbforce

Sheets("Sheet1").Cells(r,1)=Sheets("Sheet2").Range("D2")

もちろん　
=Sheets("Sheet2").Cells(2,4)
でもOKです。

お礼

早々ご回答ありがとうございました。
今、やってみました。　思ったとおりにできました。
これで、毎日データが追加できます。本当にありがとうございました

回答No.2

hana-hana3

＞最終行の次の行はどうすればいいのですか？

最終行 + 1 です。

r=Range("A65536").End(xlUp).Row + 1

若しくは、
r=Range("A65536").End(xlUp).Row
r=r+1

お礼

できるようになりました。ありがとうございました。

補足

ありがとうございます。
r=Range("A65536").End(xlUp).Row + 1
Range(Cells(ｒ, 1).Value = range("sheet2!D2")
もしくは
Range("ar").Value = Range("sheet2!D2")
ですか？
どちらかでコピーが出来ますか？(ｒ, 1)がいまいち判らないのですがよろしく