VBA 値のみ貼り付け

質問

ＶＢＡで質問です。
選択したセルへ他のセルをコピーして値のみを貼り付けしたいのですが、うまくできません。
貼り付け先のセルはその都度異なります。貼り付ける値は特定されたセルでその都度変わることはありません。

　＜例＞　A1の商品名は固定。ボタンを設けマクロを登録します。
　　　　　　　　A　　　　　　B　　　　　　C　　　　　　D
　　　1　商品あああ
　　　2
　　　3　
　　　4
　　　　　　ボタンを押すと選択したセルにA1の商品名が貼り付けされるようにしたい。

　　　　　　貼り付け先がＡ３と特定されている場合は以下の式でできますが、
　　　　　　選択するセルがその都度異なる場合はどうしたら良いのでしょうか？

　　　　　　　Range("A1").Copy
　　　　　Range("A3").PasteSpecial Paste:=xlValues

　　　　　　いい方法があれば教えてください。

回答No.1

YKKIKS63 · ベストアンサー

VBAでは、選択セルのアドレスを取得することができたと思いますが。

Sub ボタン228_Click()
Dim wk As String

wk = Range("S15")　　　　　　　'質問の場合、"A1"
MsgBox Selection.Address　　 'アドレス取得とはどういうことかを示すためのコード。質問でやりたいこととは無関係。
Selection = wk 'ボタン操作する時点で選択しているセルに、変数wkに設定した値をセット

End Sub

ちなみに、上記コードはMS-Office2010のExcelで実行確認済み。
他のバージョンでも"selection"を使えると思います。使えなかったら済みません。
なお、質問者様のやりたいことを勘違いしてとらえている場合は本回答は無視してください。

お礼

ありがとうございます！
描いていた通りのことが出来ました。