【アプリ版】サポートOS変更のお知らせ

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

「前年の販売実績の値を今年のファイルへコピ」の質問画像
gooドクター

A 回答 (1件)

販売状況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
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング