VBA初心者です。値を貼り付け について質問です。

質問

ＶＢＡ初心者です。 値を貼り付け について教えてください。

Sub test()

With Workbooks("A.xls").Worksheets("sheet1")

.Range("A1").Copy Workbooks("Bxls").Worksheets("sheet1").Range("B2")
.Range("A2").Copy Workbooks("B.xls").Worksheets("sheet1").Range("B4")
End With

End Sub

コピーする方に計算式が入っているので 値を貼り付け したいのですが、どうすればいいのでしょうか？
PasteSpecial Paste:=xlPasteValues を使ったらよいというところまではわかったのですが・・・。
教えてください！よろしくお願いします！

回答No.1

mu2011

一例です。

With Workbooks("A.xls").Worksheets("sheet1")
.Range("A1").Copy
Workbooks("Bxls").Worksheets("sheet1").Range("B2").PasteSpecial Paste:=xlPasteValues
.Range("A2").Copy
Workbooks("B.xls").Worksheets("sheet1").Range("B4").PasteSpecial Paste:=xlPasteValues
End With

又は、
With Workbooks("A.xls").Worksheets("sheet1")
Workbooks("B.xls").Worksheets("sheet1").Range("B2") =　.Range("A1")
Workbooks("B.xls").Worksheets("sheet1").Range("B4") =　.Range("A2")
End With