マクロルーティン#11（指定のシートへのコピぺ）

指定したシートにコピペする

動画はこちら↓

皆さんこんにちは。
今回はコピーしたデータを別のシートへ貼り付ける書き方をご紹介いたします。
ところで、同じシート上で１つのセルをコピー＆ペーストする書き方を覚えてますでしょうか？
・
・

Range(”A1”).Copy Range("D1")
ですね。（マクロルーティン#4 参照）

あと、複数セルをコピー＆ペーストする書き方、、覚えてますでしょうか？
・
・

Range(”A1:A5”).Copy Range("D1")
ですね。（マクロルーティン#5 参照）

ここまでは完璧だと思います！
あやふやだった人は一旦戻って確認してみてくださいね。

本題です。今までの場合は貼付け元と貼付け先が同じシート上でしたが、
今回は別のシートに貼付けたいとき、の書き方です。

上図の左側のように［１週目］と［２週目］という２枚のシートがあります
［１週目］のシートにはデータが入っていて、［２週目］のシートにはなにも入っていません。

◆目標
シート［１週目］のデータを［２週目］のシートにコピー＆ペーストする

◆書くコード

長っ！

◆書く場所　マクロルーティン#0（目次の４参照）←もう覚えましたよね。。

◆解説
一見、長くてわかんないよー、、と思うかもしれませんが、よーく見ると今まで書いてきた「Range」の前にシートの名前をつけているだけです。

シートを指定する書き方は、Worksheets の後ろにカッコ書きでシート名をいれます。シート名は文字なのでダブルクォーテーションで囲います。
その次にRangeが来るのでピリオドをつけてつなげます。

Worksheets("１週目").Range("B2:C8").Copy Worksheets("２週目").Range("B2:C8")

↑あるシートから別シートへのコピペでは太字の部分（シートの指定）が必要です。

では問題です。

以下の左の図のように「１週目」のシートにデータが入っています。
「２週目」シートには何も入っていません。
「１週目」シートのC2からC8までの値を「２週目」シートのC2からC8にコピー＆ペーストするマクロを作ってください。

解答はマクロルーティン#12です。

次回はシートからシートへのコピペの仕方をいろいろご紹介したいと思います。今回もご覧いただきありがとうございました。
今回の内容がお役に立ちましたら幸いです。