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

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

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

No.4 回答者： 9013yagi 回答日時： 2004/10/16 09:42

貼り付ける時の動作

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

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

No.3 回答者： imogasi 回答日時： 2004/10/16 07:54

短いのを１つ。

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 回答日時： 2004/10/16 03:38

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

No.1 回答者： otasuke009 回答日時： 2004/10/16 01:31

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

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