質問: お力をお貸しください。 Book1の中に、A列からG列までデータがあり 行が日に日に増えていきます。 そのうち、A列からD列までの範囲で最終行まで選択コピーし、 Book2に値張りつけを実行したいのですが、 どのようなVBAを
回答: 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 では いかがですか