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

質問

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

※アクティブはBシート

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

回答No.1

ka_na_de · ベストアンサー

こんばんは。
３パターン示します。

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

お礼

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