こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

特定のセルの数値の行数だけコピーしたい

お世話になります。
Excel2002で次のことをやろうとしています。
特定のセルに表示されている数値の行数だけコピーする。
これを、マクロを使って実行したいのですが、その方法が思いつきません。
どのようにしたら良いかお教えください。

[コピー元]のシートの"J53"のセルに、例えば「13」が表示されています。
この「13」がコピーする行数です。
このシートには多くのデータが入っていますが、そのうちの"A1"~"G13"だけのセルをコピーし、[コピー先]のシートの"A8"~"G20"に貼り付けるものです。

コピーする行数を表示しているセル"J53"は、常にこの位置です。
コピーするデータの列は常に"A"~"G"で、変わることはありません。
コピーするデータの行は、始まりは常に"1"からで、最後は"J53"に表示されている数値の行です。
コピーする行数を示す"J53"に表示される数値は「1」~「52」の範囲内です。
コピー先の位置は、[コピー先]のシートの"A8"~で、変わることはありません。

類似の質問を探したり、他にもネット上で探したのですが見つかりませんでした。
よろしくお願いします。

投稿日時 - 2017-04-20 11:02:06

QNo.9319662

困ってます

質問者が選んだベストアンサー

Sheets("コピー元").Select
Range("A1:G" & Range("J53").Value).Select
Selection.Copy
Sheets("コピー先").Select
Range("A8").Select
ActiveSheet.Paste

投稿日時 - 2017-04-20 11:34:28

お礼

目的通りのことができました。
ありがとうございました。

投稿日時 - 2017-04-20 12:42:19

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)