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.繰り返し処理（For Next)｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.ひらがな⇔カタカナの変換｜エクセル基本操作
6.RangeとCellsの使い方｜VBA入門
7.メッセージボックス(MsgBox関数)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.FILTER関数（範囲をフィルター処理）｜エクセル入門
10.条件分岐（Select Case）｜VBA入門

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

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

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

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