ここから本文です

お力をお貸しください。 Book1の中に、A列からG列までデータがあり 行が日に日...

wiw********さん

2019/5/3002:50:42

お力をお貸しください。

Book1の中に、A列からG列までデータがあり
行が日に日に増えていきます。
そのうち、A列からD列までの範囲で最終行まで選択コピーし、
Book2に値張りつけを実行したいのですが、
どのようなVBAを

組めば良いでしょうか?

よろしくお願い致します。

閲覧数:
20
回答数:
1

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

aka********さん

2019/5/3010:24:12

BOOK2の どこへ はりつけるのでしょうか

取り敢えず

R = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:D" & R).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
N = Cells(Rows.Count, "A").End(xlUp).Row
Cells(N + 1, 1).Select
ActiveSheet.Paste

では いかがですか

質問した人からのコメント

2019/5/31 00:04:39

ありがとうございます。
Book2のシート1に貼り付ける予定だったので、
上手く行きました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる