形式を選択して貼り付ける【PasteSpecialメソッド】

構文

Object.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

定数

コードサンプル

Public Sub test()
    Range("A1").CurrentRegion.Copy  'A1の範囲の表をコピー
    
    '■基本処理
    Range("A20").PasteSpecial Paste:=xlPasteAll '全て貼り付け
    
    '■複数情報貼り付ける場合は複数回実施する必要あり
    Range("A20").PasteSpecial Paste:=xlPasteValues   '値で貼り付け
    Range("A20").PasteSpecial Paste:=xlPasteFormats   '書式の貼り付け
        
     '■空白は無視、行列を入れ替える(無視しても行列の空白を詰めるわけではない)
    Range("D20").PasteSpecial Paste:=xlPasteAll, SkipBlanks:=True, Transpose:=True
    
    '■空白は無視、行列を入れ替えない。既存の貼り付け先と今回のペーストを足し算する
    Range("D20").PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationAdd, SkipBlanks:=True, Transpose:=False
end sub

使い方例

上記定数で使用する頻度が高いのは、「xlPasteValues」「xlPasteFormats」でしょう。
エクセルの特性をくみ取り、値だけで反映するケース（xlPasteValues）や、
エクセルで作成したフォーマットを貼り付けるケース(xlPasteFormats)などで使用します。

注意をしないといけないのは、値を貼り付けを多用は禁物です。
通常値の反映は上記のPasteSpecialメソッドを使わず、セルへの代入で行う方が一般的です。

関連記事

【VBA一覧】XlPasteType列挙 定数一覧
クリップボードの中身を貼り付ける【Pasteメソッド】※PasteSpecialがおすすめ
テンプレートシートの行幅をコピーする【ExcelVBA】
テンプレートシートの行幅をコピーする【ExcelVBA】