[[20200516075621]]　『アクティブセルの値の転記』（珈琲）　ページの最後に飛ぶ

『アクティブセルの値の転記』（珈琲）

sheet1 と sheet2 というシートがあります。
sheet2 のアクティブセルの値を、Sheet1 の C3セルに転記したいのですが、エラーになってしまいます。

とりあえず、sheet2 のB12セルをアクティブにして、その値を sheet1 の C3セルに転記させたいです。
（sheet1 の C3セルは、いくつかのセルの結合セルとなっています）

Sub 転記()

 Sheets("sheet2").Select 
 Range("B12").Activate

 Sheets("sheet1").Range("C3").Value = Sheets("sheet2").ActiveCell.Value

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

この１行でよいですよ。

 Sheets("sheet1").Range("C3").Value = Sheets("sheet2").Range("B12").Value

（マナ） 2020/05/16(土) 08:36

 http://officetanaka.net/excel/vba/tips/tips34.htm

 Sheets("sheet2").Select
 Sheets("sheet1").Range("C3").Value = ActiveCell.Value

（ピンク） 2020/05/16(土) 09:30

「ActiveCell」はいま選択されているセルということですから

どのシートの「ActiveCell」との指定はできません。

そのため、エラーになってしまいます。
（メジロ） 2020/05/16(土) 09:52

マナさん、ピンクさん、メジロさん、早速のご回答ありがとうございます。
「 ActiveCell 」のシート指定はしなくて良かったのですね (;^_^A
勉強になりました。
（珈琲） 2020/05/16(土) 17:09

コメント返信：