VBA再入門
セルのコピペ方法を知る（CopyとPaste、さらに）

・A1セルをコピー
・A2セルに貼付け
・ESCでコピー状態を解除

キーワードとしては、
.Copy　・・・　コピー
.Paste　・・・　貼り付け
Application.CutCopyMode = False　・・・　コピー状態の解除
この自動記録されたマクロVBAの中で、
多くの場合セルのSelectは不要です。
しかし、貼り付け先(Paste)のセルは選択しておく必要があります。
従って、

これでセルのコピーが出来ます。

・A1セルをコピー
・A2セルに値貼付け
・ESCでコピー状態を解除

※画像の都合で、改行位置を変更しています。
キーワードとしては、
.Copy　・・・　コピー
.PasteSpecial　・・・　形式を選択して貼り付け
Paste:=xlPasteValues　・・・　値
この自動記録されたマクロVBAの中で、
前述のように、多くの場合セルのSelectは不要です。
形式を選択して貼り付け(PasteSpecial)では、貼り付け先のセルは選択しておく必要がありません。
さらに、
Operation:=xlNone
SkipBlanks:=False
Transpose:=False
この3つは、指定しない（指定を省略した）場合は、この指定と同じになりますので省略できます。
従って、

これで、値貼り付けが出来ます。

・A1セルをコピー
・A2セルに書式貼付け
・ESCでコピー状態を解除

※画像の都合で、改行位置を変更しています。
キーワードとしては、
.Copy　・・・　コピー
.PasteSpecial　・・・　形式を選択して貼り付け
Paste:=xlPasteFormats　・・・　書式
この自動記録されたマクロVBAのなかで、
前述のように、多くの場合セルのSelectは不要です。
形式を選択して貼り付け(PasteSpecial)では、貼り付け先のセルは選択しておく必要がありません。
さらに、
Operation:=xlNone
SkipBlanks:=False
Transpose:=False
この3つは、指定しない（指定を省略した）場合は、この指定と同じになりますので省略できます。
従って、

これで、書式貼り付けが出来ます。

以下の「形式を選択して貼り付け」画面と対比して考えると理解しやすくなります。
ショートカットはコピー後に、Ctrl + ALT + V

Paste　・・・　貼り付け
Operation　・・・　演算
SkipBlanks　・・・　空白セルを無視する
Transpose　・・・　行列を入れ替える
このように、それぞれに対応しています。
必要に応じて、マクロ記録を使って指定方法を調べれば良いです。

いずれも結構面倒、というか結構なVBAコードの行数が必要です。
ちょっと面倒・・・ですよね。
最もよく使う、
セルをコピーして貼り付け
セルをコピーして値貼り付け
この2つには、VBAにはもっと簡単な書き方があります。
順に紹介します。

手作業でもコピーの仕方は色々あります。
Ctrlキーを押したままで、選択セルの境界をドラッグしてコピーできますよね。

セルの境界にカーソルを当てて、

Ctrlキーを押したままドラッグ&ドロップ
この操作をマクロの記録をすると、

何やら、これまでとは全く違ったVBAコードになりました。
Destinationは、目的地、行き先という意味の英単語です。
つまり、貼り付け先を一緒に指定していることになります。
「形式を選択して貼り付け」する必要が無く、
セルを単純にコピーするなら、この書き方の方が簡単なのは言うまでもありません。
そして、
セル選択は省略できますし、
Destination:=
も省略できますので、

これだけでもコピーできてしまいます。
ただし、できればDestination:=は書いた方が見やすいかもしれませんね。
複数セルの範囲の場合は、
コピー元は正しくセル範囲を指定しますが、
コピー先は、先頭セルだけ指定すれば良いです、
これは、シート上で手作業でやる場合と同じです。

これは理屈抜きで、このように書けば値のみコピーできると覚えて下さい。

Range("A1")のValueプロパティを、Range("C3")のValueに入れています。
Range("A1").Valueでセルの値を取得し、Range("C3").Valueに設定しています。
これは、複数セルの範囲でもできます。

※画像の都合で改行しています。
この場合は、
.Value
を省略できません。
以前に.Valueについて、
セル(Range、Cells)にプロパティ(Value)を書かなければ、.Valueが省略されたことになると書きましたが、
この場合だけ（他にも省略できない場合はありますが）は、.Valueを省略できないので書き忘れないようにして下さい。
また、=の左辺（貼り付け先）と右辺（コピー元）は同じ大きさ（同じ行数列数）のセル範囲を指定する必要があります。
左辺が右辺より小さい場合は部分的にコピーされ、左辺が右辺より大きい場合は不足している部分が#N/Aとなります。

色々なコピー方法がありますが、
マクロVBAでは、最後に紹介した2つの書き方を覚えれば良いでしょう。
「形式を選択して貼り付け」は、必要な時にマクロの記録でいつでも調べられます。
セルのコピペ方法をまとめると、
セルのコピペ

第40回.セルのコピー・カット&ペースト（Copy,Cut,Paste）

第41回.セルのコピー&値の貼り付け（PasteSpecial）

第42回.セルをコピーするとは

同じテーマの記事
新着記事
アクセスランク