表を別のブックのシートへ連続してコピーするマクロ

質問

マクロ初心者です。

Sheet1のＡ１からＣ３に入力されているデータがあります。

それを別のブック（集計）のＳheet1のA２からＣ４へ値のみコピーを行いたいと思っています。

２回目以降は、Sheet1のＡ１からＣ３のデータをＡ５からＣ７というように前回コピーした内容に上書きしないように連続してコピーを行いたいのですがそのようなことは可能でしょうか。

マクロで実行したいです。
ご教授よろしくお願いいたします。

回答No.1

tom04 · ベストアンサー

こんばんは！
一例です。

標準モジュールに↓のコードをコピー＆ペーストしてみてください。

Sub Sample1()
Worksheets("Sheet1").Range("A1:C3").Copy
Workbooks.Open "ファイルの保存場所\集計.xlsx"
ActiveWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

※　コード内の「ファイルの保存場所」の部分は
「集計」ブックのプロパティから確認してフルパスを入力してください。

※　「集計」ブックが開いていないという前提のコードですので、開いている場合はエラーになります。
「集計」ブックが開いている場合
＞Workbooks.Open "ファイルの保存場所\集計.xlsx"
の1行を
＞Workbooks("集計.xlsx").Activate
に変更してください。

※　「集計」ブックのA列最終行以降にコピー＆ペーストするようにしていますので
コピー元のA2～A3セルには空白セルはないとします。
（空白セルがあると行がずれてしまいます）m(_ _)m

お礼

すぐにご回答いただきありがとうございます。

やりたいことが完璧に動作しています。こんなこともできるんですね。　

わかりやすいご回答で感謝しています。本当にありがとうございます。