下記にて、BシートのアクティブセルにAシートのA1をコピーしようと

下記にて、BシートのアクティブセルにAシートのA1をコピーしようと
したのですが、エラーになります。どなたかご教示ください。

※アクティブはBシート

Aシート.Range("A1").Copy
Bシート.Range(ActiveCell.Address).PasteSpecial Paste:=xlPasteValues

No.1 ベストアンサー 回答者： ka_na_de 回答日時： 2010/02/23 23:49

こんばんは。

３パターン示します。

Bシートがアクティブであれば、２番目で十分だと思います。
値のコピーが目的なら、３番目のようにセルの値を代入する方法が一番簡便かも。


Sub test1()
　　Worksheets("Aシート").Range("A1").Copy
　　Worksheets("Bシート").Range(ActiveCell.Address).PasteSpecial Paste:=xlPasteValues
End Sub

Sub test2()
　　Worksheets("Aシート").Range("A1").Copy
　　ActiveCell.PasteSpecial Paste:=xlPasteValues
End Sub

Sub test3()
　　ActiveCell.Value = Worksheets("Aシート").Range("A1").Value
End Sub

この回答へのお礼

助かりました。ありがとうございました！

お礼日時：2010/02/24 14:48