値のみ貼り付け

Sub 値のみ貼り付け()
    ' セルA1をコピー
    Worksheets("Sheet1").Range("A1").Copy
    
    ' セルB1に値のみを貼り付け
    Worksheets("Sheet2").Range("B1").PasteSpecial Paste:=xlPasteValues
    
    ' コピー状態を解除
    Application.CutCopyMode = False
End Sub