異なるワークシートに値を貼り付けるマクロ

質問

数式の入ったワークシートから値のみをコピー＆ペーストしたいのですが、うまくいきません。
どこにxlPasteValuesを入れたらいいのでしょうか？よろしくお願いします。

Sub copypaste()

Dim bk As Workbook
Set bk = Workbooks("‘貼り付け先.xlsm")
Workbooks("Book1.xlsm").Worksheets("Sheet1").Range("B2:F6").Copy bk.Worksheets("Sheet1").Range("B2:F6")

回答No.3

kkkkkm

> Workbooks("Book1.xlsm").Worksheets("Sheet1").Range("B2:F6").Copy bk.Worksheets("Sheet1").Range("B2:F6")

一行になっていますが、Copyの後で改行するか　: 　を入れてください。
私としては改行した方が見やすいと思います。

Workbooks("Book1.xlsm").Worksheets("Sheet1").Range("B2:F6").Copy
bk.Worksheets("Sheet1").Range("B2").PasteSpecial Paste:=xlPasteValues

回答No.2

keithin

＞値のみをコピー＆ペーストしたい

workbooks("貼り付け先.xlsm").worksheets("Sheet1").range("B2:F6").value _
= workbooks("コピー元.xlsm").worksheets("Sheet1").range("B2:F6").value
とかの方が簡単です。

回答No.1

kkkkkm

bk.Worksheets("Sheet1").Range("B2").PasteSpecial Paste:=xlPasteValues

でよろしいと思います。

補足

回答ありがとうございます。教えて頂いたように記述するとステートメントの最後がコンパイルエラーになります。どう直せばいいのか再度教えて頂けないでしょうか？よろしくお願いします。