セルの情報を形式を指定して貼り付ける。

コピーしたセルを値や書式のみといった形式を指定して貼り付けたい場合はPasteSpecialメソッドを利用します。
PasteSpecialメソッドで貼り付ける形式の指定は、引数に定数を設定することできます。
サンプルコードでは下記の形式をそれぞれ指定しています。

定数	形式
xlPasteAll	すべての情報（規定値）
xlPasteFormulas	数式のみ
xlPasteValues	値のみ
xlPasteFormats	書式のみ
xlPasteComments	コメントのみ
xlPasteValidation	入力規則のみ
xlPasteAllExceptBorders	罫線以外
xlPasteColumnWidths	列幅のみ
xlPasteFormulasAndNumberFormats	数式と数値の書式のみ
xlPasteValuesAndNumberFormats	値と数値の書式のみ

'******************************************************************
'　形式指定して貼り付ける。
'******************************************************************
Sub PasteSpecial()
    
    'A2セルの情報をコピー
    Sheets("Sheet1").Range("A2").Copy
    
   
    'すべての情報を張り付け※引数を省略した場合、xlPasteAllと同じ設定となります。
    Sheets("Sheet1").Range("B2").PasteSpecial
    
    '値のみ貼り付け
    Sheets("Sheet1").Range("C2").PasteSpecial xlPasteValues
    
    '書式のみ貼り付け
    Sheets("Sheet1").Range("D2").PasteSpecial xlPasteFormats
    
    'コメントのみ貼り付け
    Sheets("Sheet1").Range("E2").PasteSpecial xlPasteComments
    
End Sub

　■実行前

　■実行結果