気軽に・お得に・稼ぎたいなら「A8.net」に登録！！
https://px.a8.net/svt/ejp?a8mat=2TAC5M+14HJGI+1N3S+6AAFLV
┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘┘
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
Cut
セルの切り取りの場合は「Cut」を使用します。
引数「Destination」で貼り付け先を指定します。
上記「Sheets("sheet2").Range("a2").Cut Destination:=Range("c3")」を
実行するとA2の内容がC3に移動します。
（A2の内容が切り取られ、C3に貼り付けされます）
Paste
形式を選択して貼り付ける場合は「Paste」を使用します。
普通にコピーして貼り付けする際に「形式を選択して貼り付け」というところが
あると思いますが、その内容をほぼ実現できます。
【構文】
Object．PasteSpecial（Paste，Operation，SkipBlanks，Transpose）
Object・・・Rangeオブジェクト
Paste・・・何を貼り付けるか指定する（省略可能）
Operation・・・演算して貼り付ける場合の演算方法を指定する（省略可能）
SkipBlanks・・・空白セルを無視する（True）、無視しない（False：規定値）（省略可能）
Transpose・・・行列を入れ替える（True）、入れ替えない（False：規定値）（省略可能）
Pasteの内容
・すべて・・・xlPasteAll（規定値）
・数式・・・xlPasteFormulas
・値・・・xlPasteValues
・書式・・・xlPasteFormats
これ以外にもありますが、代表的なものはこれくらいでしょうか。
例）
今下のような内容で記述されています。
Sheets("sheet3").Range("a2:a19").Copy
シート３のA2からA19までコピーせよ
Sheets("sheet3").Range("d2:d19").PasteSpecial Paste:=xlPasteValues
シート３のD2からD19まで値を貼り付けなさい。
Sheets("sheet3").Range("d2:d19").PasteSpecial Paste:=xlPasteFormats
シート３のD2からD19まで書式を貼り付けなさい。
このようにPasteの内容は別々に記載する必要があります。
「xlPasteAll」ならば全てコピー貼付けされるので問題ありません。
これを実行すると下のようになります。
まずは15日間【無料】お試し利用から！大容量256GBレンタルサーバー『 HETEML 』
タグ： ExcelVBA,コピー貼付け
