前年の販売実績の値を今年のファイルへコピーするのに悩んでします。

作業フォルダ内には、前年ファイルの「販売状況R2」と今年のファイル「販売状況R3」があり、「販売状況R2」の実績数値、セルD4～D11、F4～F11、H4～H11、J4～J11をコピーし、「販売状況R3」の前年度、セルE4～E11、G4～G11、I4～I11、K4～K11へ貼り付けたいのですがうまくいきません？
どのように記述したらすっきりしますでしょうか！
よろしくお願いします。

No.1 回答者： tatsumaru77 回答日時： 2021/07/29 09:13

販売状況R2.xlsx、販売状況R3.xlsxは既にオープンされている前提です。

シート名が不明なので、ともにSheet1とします。
以下のマクロを標準モジュールに登録してください。

Public Sub 転記()
Workbooks("販売状況R3.xlsx").Worksheets("Sheet1").Range("E4:E11").Value = Workbooks("販売状況R2.xlsx").Worksheets("Sheet1").Range("D4:D11").Value
Workbooks("販売状況R3.xlsx").Worksheets("Sheet1").Range("G4:G11").Value = Workbooks("販売状況R2.xlsx").Worksheets("Sheet1").Range("F4:F11").Value
Workbooks("販売状況R3.xlsx").Worksheets("Sheet1").Range("I4:I11").Value = Workbooks("販売状況R2.xlsx").Worksheets("Sheet1").Range("H4:H11").Value
Workbooks("販売状況R3.xlsx").Worksheets("Sheet1").Range("K4:K11").Value = Workbooks("販売状況R2.xlsx").Worksheets("Sheet1").Range("J4:J11").Value
End Sub