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

最終更新日：2021-08-18

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

セルのコピーに関する問題です。
セルの値と書式をコピーします。

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

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

出題

#VBA100本ノック 2本目
「Sheet1」のA1:C5のセル範囲を、「Sheet2」のA1:C5にコピーしてください。
数式は消して値でコピー、書式もコピーしてください。
※書式は「セルの書式設定」で設定可能なもの（ロックは除く）。
入力規則やメモ（旧コメント）は書式ではありません。
「ふりがな」は任意で

VBA作成タイム

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

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

頂いた回答

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

解説

ブックの指定は省略します。


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

      Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteFormats '書式

      Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues
      '値

Application.CutCopyMode = False

「ふりがな」もコピーされます

前記の値のコピー部分は以下のように書くことができます。


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

※Valueは省略できません。（正確には右辺のValueが省略できない）
「ふりがな」はコピーされない

補足

Range().Copy Destination:=・・・
これでコピーすると入力規則やメモ（旧コメント）もコピーされてしまいます。
これらをコピーせずに書式をコピーする場合は、
.PasteSpecial Paste:=xlPasteFormats
これを使ってください。
PasteSpecialの引数は、「形式を選択して貼り付け」のダイアログを見て確認してください。

.PasteSpecialの引数

名前	指定値	説明
Paste	xlPasteAll	すべてを貼り付けます。
	xlPasteAllExceptBorders	輪郭以外のすべてを貼り付けます。
	xlPasteAllMergingConditionalFormats	すべてを貼り付け、条件付き書式をマージします。
	xlPasteAllUsingSourceTheme	ソースのテーマを使用してすべてを貼り付けます。
	xlPasteColumnWidths	コピーした列の幅を貼り付けます。
	xlPasteComments	コメントを貼り付けます。
	xlPasteFormats	書式を貼り付けます。
	xlPasteFormulas	数式を貼り付けます。
	xlPasteFormulasAndNumberFormats	数式と数値の書式を貼り付けます。
	xlPasteValidation	入力規則を貼り付けます。
	xlPasteValues	値を貼り付けます。
	xlPasteValuesAndNumberFormats	値と数値の書式を貼り付けます。
Operation	xlPasteSpecialOperationAdd	コピーしたデータは、対象セルの値に加算されます。
	xlPasteSpecialOperationDivide	コピーしたデータは、対象セルの値によって割り算されます。
	xlPasteSpecialOperationMultiply	コピーしたデータには、対象セルの値に掛け算されます。
	xlPasteSpecialOperationSubtract	コピーしたデータは、対象セルの値に引き算されます。
	xlPasteSpecialOperationNone	貼り付け操作で計算は行われません。
SkipBlanks	バリアント型 (Variant)	クリップボードに含まれる空白のセルを貼り付けの対象にしないようにするには、True を指定します。既定値は False です。
Transpose	バリアント型 (Variant)	貼り付けのときにデータの行と列を入れ替えるには、True を指定します。既定値は False です。


  
    
      Worksheets("Sheet2").Range("A1:C5").Value(xlRangeValueXMLSpreadsheet) = Worksheets("Sheet1").Range("A1:C5").Value(xlRangeValueXMLSpreadsheet)

これでもセルのほとんどの情報はコピーされますが、
メモ（旧コメント）はコピーされるが入力規則はコピーされない等、コピーされる情報に気を付ける必要もあるので積極的に使うものではないと思います。

サイト内関連ページ

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

あるセルをコピーまたはカットして、別のセルに貼り付けるマクロVBAの説明です。セルを同じシートの別のセルにコピーしたり、セルを別のシートにコピーしたりするVBAになります。手作業で、セルをコピー(Ctrl+C)またはカット(Ctrl+X)して、他のセルに貼り付け(Ctrl+V後にESCまたはEnter) これと同じ…

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

値の貼り付けと題しましたが、値だけではなく、「形式を選択して貼り付け」のいろいろな指定方法です。セルをコピーして、他のセルに「形式を選択して貼り付け」する場合のマクロVBAコードです。セルの値や書式を別のセルにコピーすることはマクロVBAでは定番かつ必須の技術になります。

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

セルをコピーするとは、どういう事でしょうか… セルをコピーするというマクロVBAを少し掘り下げて考えることで、より実践的なマクロVBAコードを書くことが出来るようになります。コピーと一言で言っているものは、何のコピーを指しているのでしょうか。

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

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

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.RangeとCellsの使い方｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門

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

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

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

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