こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

マクロ是非ともアドバイスお願いします。

6月累計ファイル データをコピーして「全社累計」ファイルへ貼り付け

’6月累計ファイル データF32~F109データをコピーして
Range("F32:F109").Select
Selection.Copy
’全社累計シート管理用E3~E80に貼り付ける。
Windows("全社累計.xls").Activate
Sheets("管理用").Select
Range("E3:E80").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E3:E80").Select

これを

F32→E3 F48→E19 F68→E34
とセルごとに指定し貼付けたいのですが、
どうしたらよいのでしょうか?

前後にコードを入力し実行ができているので
できれば、出来る限りこのコードのままで返ることはできないでしょうか?

これでは無理・変だと指摘がありましたら宜しくお願い致します。

投稿日時 - 2013-07-30 11:31:11

QNo.8198187

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

>F32→E3 F48→E19 F68→E34
>とセルごとに指定し貼付けたいのですが、

単純にセル範囲をそのように変更したものをコピー/挿入すればいいのでは?

Range("F32:F109").Select
Selection.Copy
’全社累計シート管理用E3~E80に貼り付ける。
Windows("全社累計.xls").Activate
Sheets("管理用").Select
Range("E3:E80").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("元の表.xls").Activate
Range("2カ所目コピー元セル範囲").Select
Selection.Copy
’全社累計シート管理用2カ所目に貼り付ける。
Windows("全社累計.xls").Activate
Sheets("管理用").Select
Range("2カ所目貼り付け先セル").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("元の表.xls").Activate
Range("3カ所目コピー元セル範囲").Select
Selection.Copy
’全社累計シート管理用2カ所目に貼り付ける。
Windows("全社累計.xls").Activate
Sheets("管理用").Select
Range("3カ所目貼り付け先セル").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

投稿日時 - 2013-08-01 16:00:33

あなたにオススメの質問