そこで複数コピー&ペーストしたい場合は1つコピーして貼り付け…1つコピーして貼り付け…
という動作をコピー&ペーストしたい回数繰り返さないといけません。

さらにシートをまたぐ際には動作時間も遅くなりますし
プログラムも長文になってしまいます。

そこで今回は配列を使用して配列に情報を蓄積していき
貼り付け位置にまとめてペーストする方法について紹介したいとします。

それでは見ていきましょう。

■複数のコピー&ペーストの問題点

まず解決策を紹介する前に比較対象として
下図の見本を用意しました。

シート名「Befor」の数値1～7をシート名「After」に貼り付けようとします。
ではコピー&ペーストを使用したプログラムを見てみましょう。

Sub BeforからAfterにコピーペースト()

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“B4:B8”).Copy ‘数値1をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“B4”).PasteSpecial xlPasteValues ‘数値1を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“D11:D15”).Copy ‘数値2をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“C4”).PasteSpecial xlPasteValues ‘数値2を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“G8:G12”).Copy ‘数値3をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“D4”).PasteSpecial xlPasteValues ‘数値3を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“G17:G21”).Copy ‘数値4をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“E4”).PasteSpecial xlPasteValues ‘数値4を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“I8:I12”).Copy ‘数値5をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“F4”).PasteSpecial xlPasteValues ‘数値5を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“J17:J21”).Copy ‘数値6をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“G4”).PasteSpecial xlPasteValues ‘数値6を値のみペースト

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ
Range(“L9:L13”).Copy ‘数値7をコピー
Worksheets(“After”).Activate ‘シートAfterをアクティブ
Range(“H4”).PasteSpecial xlPasteValues ‘数値7を値のみペースト

End Sub

長いですね。

実行結果は下図の通りです。

コピー元のシートとペースト先のシートが異なるため
シートを毎回アクティブにしないといけないという悪さがあります。

この長く見にくいプログラムを配列を使用することで簡潔にすることができます。

■配列に格納して貼り付けする

では本題の配列を使用して貼り付けを行いたいと思います。
配列なので変数は「Variant型」になります。

変数についての記事はこちらから☟

【VBA知識 6】変数とは?変数の一覧と意味・変数の宣言をする ► 独学エクセル塾 (dokugakuexcel.com)

今回は見本で「A」というVariant型の変数を使用したいと思います。
ではプログラムから見てみましょう。

Sub BeforからAfterに配列を使用してコピーペースト()

Dim A(7) As Variant

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ

A(1) = Range(“B4:B8”) ‘数値1を格納
A(2) = Range(“D11:D15”) ‘数値2を格納
A(3) = Range(“G8:G12”) ‘数値3を格納
A(4) = Range(“G17:G21”) ‘数値4を格納
A(5) = Range(“I8:I12”) ‘数値5を格納
A(6) = Range(“J17:J21”) ‘数値6を格納
A(7) = Range(“L9:L13”) ‘数値7を格納

Worksheets(“After”).Activate ‘シートAfterをアクティブ

Range(“B4:B8”) = A(1) ‘数値1を貼り付け
Range(“C4:C8”) = A(2) ‘数値2を貼り付け
Range(“D4:D8”) = A(3) ‘数値3を貼り付け
Range(“E4:E8”) = A(4) ‘数値4を貼り付け
Range(“F4:F8”) = A(5) ‘数値5を貼り付け
Range(“G4:G8”) = A(6) ‘数値6を貼り付け
Range(“H4:H8”) = A(7) ‘数値7を貼り付け

End Sub

いかがでしょうか。
すっきりしましたね。

実行した結果も見てみましょう。

無事、データを貼り付けすることができました。
では仕組みを解説します。

Dim A(7) As Variant
こちらで配列のAという変数が（7）で7つあることを宣言します。

A(1) = Range(“B4:B8”) ‘数値1を格納
・・・
A(7) = Range(“L9:L13”) ‘数値7を格納

A(1)から順にA(7)まで数値1から7を格納していきます。

Range(“B4:B8”) = A(1) ‘数値1を貼り付け
・・・
Range(“H4:H8”) = A(7) ‘数値7を貼り付け

ここで指定した位置にA(1)からA(7)まで順番に出力を行います。

コピー&ペーストを繰り返していた作業が楽になりましたね。
さらにFor Nextを使用することも可能です。

For Nextについてはこちらから☟

【VBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 ► 独学エクセル塾 (dokugakuexcel.com)

Sub BeforからAfterに配列を使用してコピー&ペースト()

Dim A(7) As Variant, B As Long

Worksheets(“Befor”).Activate ‘シートBeforをアクティブ

A(1) = Range(“B4:B8”) ‘数値1を格納
A(2) = Range(“D11:D15”) ‘数値2を格納
A(3) = Range(“G8:G12”) ‘数値3を格納
A(4) = Range(“G17:G21”) ‘数値4を格納
A(5) = Range(“I8:I12”) ‘数値5を格納
A(6) = Range(“J17:J21”) ‘数値6を格納
A(7) = Range(“L9:L13”) ‘数値7を格納

Worksheets(“After”).Activate ‘シートAfterをアクティブ

For B = 1 To 7 Step 1
Range(Cells(4, B + 1), Cells(8, B + 1)) = A(B) ‘数値1を貼り付け
Next B

End Sub

とてもすっきりしましたね。

■まとめ

いかがだったでしょうか。
繰り返し行っていたコピペが配列を使用することで
簡潔にまとめることができました。

ぜひ配列を使用して文字の格納から貼り付けを行ってみてください。

それでは次回の記事でお会いしましょう。

基本的な貼り付け・数値のみ貼り付けのほかに
加算・乗算などの機能もあり様々なことが可能になります

使用する機会も多く、とても便利な機能なのでぜひ参考にしてみてください。

それでは見ていきましょう。

■切り取りについて

まずは切り取りについて説明します。
こちらは入力されてある文字・数値のセルを切り取って
他のセルに移動する機能です。

まず切り取りたい範囲を選択します。
そして切り取る方法は何通りか方法があるのでそれぞれ説明します。

・右クリックからメニューで切り取る

切り取りたいセルを選択した状態で右クリックを押してください。
すると「切り取り」という項目があるので押してみてください。

すると選択したセルはこのようになります。

選択したセルはこのように点線の枠で囲まれました。
これで切り取りは完了した状態です。

・ショートカットキーを使用して切り取る

こちらはとても簡単なので是非覚えてください。

切り取りたいセルを選択するところまでは一緒です。
その後ショートカットキーを押せば切り取りができます。

ショートカットキーは「Ctrl + X 」となっています。

「Ctrl + X 」を押すだけで切り取れるのでとても便利ですね。

・ツールバーから切り取る

ツールバーからでも切り取りは可能です。
「ホーム」を押して「切り取り」の項目があるので
こちらを押してもらえば切り取りは可能です。

■コピーについて

今度はコピーについてです。

こちらは切り取りとは異なり、別のセルに張り付けても
コピー元は消えることがありません。

こちらもまずコピーしたい範囲を選択します。
コピー方法も何通りか方法があるのでそれぞれ説明します。

・右クリックからメニューでコピーする

コピーしたいセルを選択した状態で右クリックを押してください。
すると「コピー」という項目があるので押してみてください。

すると選択したセルはこのようになります。

切り取り同様、選択したセルはこのように点線の枠で囲まれました。
これでコピーは完了した状態です。

・ショートカットキーを使用して切り取る

こちらも同様、とても簡単なので是非覚えてください。

コピーしたいセルを選択するところまでは一緒です。
その後ショートカットキーを押せば切り取りができます。

ショートカットキーは「Ctrl + C 」となっています。

「Ctrl + C 」を押すだけでコピーできるのでとても便利ですね。

・ツールバーから切り取る

ツールバーからでもコピーは可能です。
「ホーム」を押して「コピー」の項目があるので
こちらを押してもらえば切り取りは可能です。

■貼り付けについて

先ほどまで「切り取り」「コピー」について学んできましたが
貼り付けについて見てみましょう。

今回は通常の貼り付けを見ていきましょう。

こちらもメニューやショートカットキーなどあるので紹介します。

・右クリックからメニューで貼り付けする

貼り付け先を選択した状態で右クリックを押してください。
すると「貼り付け」という項目があるので押してみてください。

貼り付けには様々なオプションがありますので別の記事で説明します。

ちなみに切り取り・コピーの違いを下記に示します。
切り取り・コピー元は「B2」で貼り付け先は「Ｄ2」で行っています。

切り取りについては参照元の「Ｂ2」が無くなっているのに対し、

コピーは参照元が残っているのが確認できます。

・ショートカットキーを使用して切り取る

貼り付けはショートカットキーでも行えます。

貼り付け先のセルを選択します。
その後ショートカットキーを押せば貼り付けができます。

ショートカットキーは「Ctrl + V 」となっています。

・ツールバーから貼り付ける

ツールバーからでも貼り付けは可能です。
「ホーム」を押して「貼り付け」の項目があるので
こちらを押してもらえば貼り付けが可能です。

■よくあるエラーと対処法・特徴

では、切り取り・コピー・貼り付けを

使用して発生するエラーとそれに対する対処法、特徴を説明します。

・参照セルが参照先に合わせて移動する

こちらは切り取り・コピー・貼り付けの特徴になります。

下図をご覧ください。

左側が参照元で、右が参照元をコピーして貼り付けたものになってます。

それぞれ５教科の平均値を求めています。

参照前の数式はこのようになってます。

「N18からN22」の平均値を求めています。

では貼り付け先の数式を見てみましょう。

参照元との移動分、数式がズレて「S18からS22」になってますね。

もしも、数式の参照元がズレてほしく場合は

F4キーで「AVERAGE($N$18:$N$22)」というように絶対参照を活用してください。

・結合セルへの貼り付け

下図のシートをご覧ください。

参照元を結合セルに「値のみ」で貼り付けてみます。

このようにエラーが発生しました。

結合セルに「値のみ」で貼り付ける場合は

参照元のセルと参照先のセルの結合数が同じでなければなりません。

つまり見本で説明すると「２列と３行」で結合されたセルに 「値のみ」貼り付けする場合には

コピー元も 「２列と３行」で結合されたセル でなければなりません。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

数式を移動、コピーする – Excel (microsoft.com)

■まとめ

いかがだったでしょうか。

切り取り・コピー・貼り付けはエクセルを使用する中で必要不可欠な技術になります。

さらに貼り付け方法も様々なオプションがあるので是非参考にしてみてください。

【様々な貼り付け】値の貼り付け・行と列を入れ替えて貼り付ける方法などのオプション一覧 ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。