ある行の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.3
- 回答日時:
シート関係を質問に明確に表現すること。
r = Sheets(SN).Range("b65536").End(xlUp).Row
というからにはSheets(SN)の下の行に貼り付けるのではないか。
ーー
その場合は
>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(SN).Cells(r + 12, 8)のような形になるのでは。
何をしたいかはっきりさせて質問すること。
ーー
Sheets(12).Range(Sheets・・も
Sheets(12).Range(1,3)のような形になっている。Rangeの場合は()内は"C1"のような文字列で指定。
Range(1,3)のような記述は出来るはずがない。
Cells(i,j)からの安易な類推で間違っている。
ーー
例題 下記をよく読んで考えること。
Sub test02()
Worksheets("sheet1").Cells(1, 2) = "A"
MsgBox Worksheets("sheet1").Range(Worksheets("sheet1").Cells(1, 2) & 1)
End Sub
ならA1セルの値が返る。
ーーー
参考
エラーが起こったら(上記のような文法、記法的なエラーは別にして)
Sub test01()
’SN-->Sheet2
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
のように範囲や列、行を具体的に、簡単な例に置き換えてみて、うまく行くかどうかMsgboxなどで確認すればデバッグが進むと思う。
==
表題も、>Copyコマンドについて
は不適当。
質問の方法がまずかったようで失礼しました。
Sheets(SN)はSheets(12)の間違いでした。
ありがとうございました。
今後気をつけます失礼しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのマクロでrangeの選択が...
-
エクセルの関数(IF関数?)に...
-
エクセルの表示形式を保ったま...
-
EXCELで2つの数値のうち大きい...
-
Excelで隣のセルと同じ内容に列...
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセル 文字数 多い順 並...
-
エクセルで、2種類のデータを...
-
エクセルで最初のスペースまで...
-
Excelで半角の文字を含むセルを...
-
SUMIFとCOUNTIFを合わせたよう...
-
Excel関数で、範囲内の最後のセ...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
Excel、市から登録している住所...
-
Excel 文字列を結合するときに...
-
えエクセルで○は1とし△は0.5で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelのマクロでrangeの選択が...
-
エクセルの表示形式を保ったま...
-
Excel VBA For Each Next構文...
-
Excel2000 VBA ダブルクリック...
-
エクセル 1つのセル毎に入力...
-
EXCELのマクロで一覧表に...
-
エクセルで別シートにある各々...
-
Excel VBAのComboboxのRemoveItem
-
Excelのデータベース活用...
-
Gメールの内容をスプレッドシ...
-
エクセルで項目抽出
-
【ExcelVBA】A列に値のある行を...
-
vbaにて並べ替えしたい。
-
EXCEL 行内のデータを2行に分け...
-
VLOOKUPのような操作ができるマ...
-
EXCEL(エクセル)で0.001以下...
-
ISERROR関数
-
エクセルでスケジュール管理
-
EXCELで2つの数値のうち大きい...
-
Excelで隣のセルと同じ内容に列...
おすすめ情報