Copyコマンドについて

質問

ある行のH～Uまでをすぐ下の行にコピーしたいのですが今まではセルの場所が判っていましたので
Sheets(1).Range("H12:U12").Copy Destination:=Sheets(1).Range("H13")
としていましたが任意の行ですので
r = Sheets(SN).Range("b65536").End(xlUp).Row
Sheets(12).Range(Sheets(12).Cells(r + 11, 8), Sheets(SN).Cells(r + 11, 15)).Copy Destination:=Sheets(12).Cells(r + 12, 8)
では上手くいきませんCellsを使うときはどうすればよいか教えてください
よろしくお願いします

回答No.2

hallo-2007 · ベストアンサー

Sheets(12)とSheets(SN)は同じ？
という疑問はおいておいて
無理にCellsで指定しなくてもRnageで
r = Range("B65536").End(xlUp).Row
Range("H" & r + 1 & ":U" & r + 1).Value = Range("H" & r & ":U" & r).Value
という書き方もありますよ。

お礼

ありがとうございます
教えていただいたコードで行きます。

回答No.3

imogasi

シート関係を質問に明確に表現すること。
r = Sheets(SN).Range("b65536").End(xlUp).Row
というからにはＳｈｅｅｔｓ（ＳＮ）の下の行に貼り付けるのではないか。
ーー
その場合は
＞Sheets(12).Range(Sheets(12).Cells(r + 11, 8), )).Copy Sheets(SN).Cells(r + 11, 15)).Copy Destination:=Sheets(12).Cells(r + 12, 8)
はDestination:=Sheets(ＳN).Cells(r + 12, 8)のような形になるのでは。
何をしたいかはっきりさせて質問すること。
ーー
Sheets(12).Range(Sheets・・も
Sheets(12).Range(１，３）のような形になっている。Ｒａｎｇｅの場合は（）内は"Ｃ１"のような文字列で指定。
Ｒａｎｇｅ（1,3)のような記述は出来るはずがない。
Ｃｅｌｌｓ（ｉ，ｊ）からの安易な類推で間違っている。
ーー
例題　下記をよく読んで考えること。
Sub test02()
Worksheets("sheet1").Cells(1, 2) = "A"
MsgBox Worksheets("sheet1").Range(Worksheets("sheet1").Cells(1, 2) & 1)
End Sub
ならＡ１セルの値が返る。
ーーー
参考
エラーが起こったら（上記のような文法、記法的なエラーは別にして）
Sub test01()
’ＳＮ－－＞Ｓｈｅｅｔ２
r = Sheets("sheet2").Range("B65536").End(xlUp).Row 'SN=Sheet2
MsgBox r
MsgBox r + 11 '16
'Sheet12-->Sheet1
Sheets("Sheet1").Range(Sheets("Sheet1").Cells(r + 11, "H"), Sheets("Sheet1").Cells(r + 11, "J")).Copy _
Destination:=Sheets("Sheet1").Cells(r + 12, "H")
End Sub
のように範囲や列、行を具体的に、簡単な例に置き換えてみて、うまく行くかどうかＭｓｇｂｏｘなどで確認すればデバッグが進むと思う。
＝＝
表題も、＞Copyコマンドについて
は不適当。

お礼

質問の方法がまずかったようで失礼しました。
Sheets(SN)はSheets（12）の間違いでした。
ありがとうございました。
今後気をつけます失礼しました。

回答No.1

kmetu

Range(Sheets(12).Cells(r + 11, 8), Sheets(SN).Cells(r + 11, 15)

Rangeの中で別シートって指定できましたっけ？

Range(Cells(r + 11, 8), Cells(r + 11, 15))

じゃないんでしょうか。

お礼

ありがとうございました
この方法もありですね