関数が含まれたセルの行をマクロで挿入する

質問

セルD2には、IF関数が含まれている、以下の表があります。2行目に行をマクロで挿入して大きな表を作成する予定です。
　　　　　　　A　　　　　　　B　　　　　　　C　　　　　　Ｄ　　　　　
１　　　　納入数　　　使用m数　　　納入m　　　使用m
2　　　　　　　　　　　　　　　　　　　　　　　　　　　〔=if（B2>1,C2,""）〕

マクロは、以下のようにして、2行目に行を挿入したのですが、IF文が含まれたものが
挿入できません。どのようなマクロ文にしたらよいかわからず困っています。別シートからコピーする
方法も考えられますが、同じシート内で収めたいと考えています。宜しくお願いします。

Sub 行挿入()
'
' 行挿入 Macro
'
' Range("a2:ｄ2").Insert copyorigin:=xlFormatFromRightOrBelow

End Sub

回答No.2

noname#146604 · ベストアンサー

Sub macro()

m = Cells(2, 4).Formula
Range("a2:d2").Insert copyorigin:=xlFormatFromRightOrBelow
Cells(2, 4) = m

End Sub

とか

お礼

早速ためしましたところ指定したセルの内容がコピーされて行が挿入できました。大変ありがとうございました。

回答No.1

keithin

＞2行目に行をマクロで挿入

その通りに作成すればいいです。

sub macro1()
　range("2:2").copy
　range("2:2").insert shift:=xlshiftdown
　application.cutcopymode = false
end sub

お礼

早速ためしましたら、行挿入できましたありがとうございました