VBA100本ノック 1本目：セルのコピー

公開日：2020-10-19　最終更新日：2021-08-17

VBA100本ノック 1本目：セルのコピー

セルのコピーに関する問題です。
セルの全てをコピーします。

ツイッター連動企画です。
ツイート文字数制限があるので、ブック指定等省略可能な記述は省略しています。

VBAテスト用のサンプルデータはご自身でご用意ください。

出題

出題ツイートへのリンク

#VBA100ノック 1本目
「Sheet1」のA1:C5のセル範囲を、「Sheet2」のA1:C5にコピーしてください。
値も数式も書式も全てコピーしてください。
ただしSelectメソッドは使用禁止
※行高と列幅の設定はしなくて良い。

VBA作成タイム

この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。

他の人の回答および解説を見て、書いたVBAを見直してみましょう。

頂いた回答

出題ツイートの引用ツイートでの回答

解説

ブック指定は省略。


  
    
      Worksheets("Sheet1").Range("A1:C5").Copy Destination:=Worksheets("Sheet2").Range("A1")

Destinationは省略可。


  
    
      Worksheets("Sheet1").Range("A1:C5").Copy Worksheets("Sheet2").Range("A1")

コピー先は同サイズを指定しても良いが、先頭セルだけで良い。

形式を選択して貼り付けはアクティブシート以外に貼り付けできます。
オプション「すべて」で、


  
    
      Worksheets("Sheet1").Range("A1:C5").Copy

      Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False 'これを忘れるとコピーの点々が残ります。

補足

少ないセル数なら1セルずつコピーしても良いですが、セル数が多くなると処理時間がとてもかかります。
セルに対する操作は、極力まとめて行うようにしましょう。

Worksheets("Sheet1").Range("A1:C5").Copy Destination:=Worksheets("Sheet2").Range("A1")
この場合のコピー先に範囲を指定する場合は、コピー元と同じ大きさで指定する必要があります。
コピー先は先頭セルだけ指定しておくようにした方が良いでしょう。

Worksheets("Sheet1").Range("A1:C5").Copy
この場合はクリップボードが使われるので、このマクロ実行中はPC操作はしないようにしてください。
Application.CutCopyMode = False
これを忘れると、マクロVBA終了後もコピー範囲の動く点々が残ってしまうので、忘れないようにしましょう。

サイト内関連ページ

第40回．セルのコピー・カット&ペースト（Copy,Cut,Paste）｜VBA入門

・セルをコピー（複写）する場合・セルを切り取る（移動する）場合・セル範囲のコピーについて・別のシートにコピーする場合・アクティブシート以外へのコピー・可視セルのみコピー・セルのコピーについてのサイト内参考ページ

第41回．セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門

・PasteSpecialメソッド・値の貼り付け・いろいろなコピーのVBAの書き方・PasteSpecialの使用例・最後に

第42回．セルをコピーするとは｜VBA入門

・セルをコピーするとは・上記方法ではコピーできないプロパティ・.Valueのセル範囲間のコピー・.Value以外の場合は、セル範囲をセル範囲にコピーは出来ません・コピー方法の使い分け・セルのコピー（Copyメソッド）実行時の注意点・最後に

同じテーマ「VBA100本ノック」の記事

1本目：セルのコピー
2本目：セルのコピー
 3本目：セルの消去
 4本目：セルの消去
 5本目：セルの計算
 6本目：セルに計算式
 7本目：日付データの扱い
 8本目：点数の合否判定
 9本目：フィルターコピー
 10本目：行の削除
 11本目：セル結合の警告

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA入門編
VBA100本ノック
1本目：セルのコピー

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA練習問題
VBA100本ノック 1本目：セルのコピー