セルに入ってる数式を他のセルへコピーしたい

質問

こちらでよろしいでしょうか？
エクセルのＶＢでセルに入ってる数式を他のセルにコピー
したいのです。
Range("c3:c5") = Range("c2")
c2にはb1*a1の式が入ってるのですが、c3:c5にはb1*a1の
答えが入ってしまします。

答えではなく式を入れたいのですが・・・

回答No.4

9013yagi

貼り付ける時の動作

Selection.PasteSpecial Paste:=xlPasteFormulas, 　　　　　Operation:=xlNone, _
　　　　SkipBlanks:=False, Transpose:=False

これ足すだけでいけません？

回答No.3

imogasi

短いのを１つ。
Sub test01()
Range("c1").Copy
Range("c3:c5").PasteSpecial
End Sub
以下既回答を短くなるよう修正。動作確認しました。
test02分だけ、結果内容が他と異なります。
Sub test02()
Range("c3:c5") = Range("c2").Formula
End Sub
Sub test03()
Range("C2").Copy
Range("C3:C5").Select
ActiveSheet.Paste
End Sub
Sub test04()
Range("c2").Copy
Range("C3:C5").PasteSpecial Paste:=xlPasteFormulas
End Sub

回答No.2

taka_tetsu

Range("c3:c5") = Range("c2").Formula

回答No.1

otasuke009

やってみたらこうなりました。

Range("C2").Select
Selection.Copy
Range("C3:C5").Select
ActiveSheet.Paste

場合によってはこれもありかもしれません。

Range("C2").Select
Selection.Copy
Range("C3:C5").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False