Sub Sample10() 'A1のセルをコピー Range("A1").Copy 'B1のセルに値の貼り付け Range("B1").PasteSpecial (xlPasteValues) End Sub