エクセルのマクロにて、I列にＫの値をそのまま代入、Ｏ列にY/Mの式を入

質問

エクセルのマクロにて、I列にＫの値をそのまま代入、Ｏ列にY/Mの式を入れています。
Ｋ列のセルが空欄の場合に「0」となってしまいます。
Ｋ列のセルが空欄の場合には何も表示させてくありません。
回避策をおしえてください。

===========================================
lastrow = Range("H65536").End(xlUp).Row

For i = 3 To lastrow
Cells(i, 9).Value = "=(K" & i & ")"
Cells(i, 15) = "=(Y" & i & ")/(M" & i & ")"
Next i
===========================================

回答No.1

mt2008

セルに式を入れる前にIF文でK列の値が空白か否かをチェックします。
また、セルに式を入れる時は.Valueではなく、.Formulaに入れるようにした方が良いです。
ついでに、式中の不要なカッコは省きました。

lastrow = Range("H65536").End(xlUp).Row

For i = 3 To lastrow
　If Cells(i, 11).Value <> "" Then
　　Cells(i, 9).Formula = "=K" & i
　　Cells(i, 15).Formula = "=Y" & i & "/M" & i
　End If
Next i

補足

mt2008さん希望通りありがとうございました。
また、.Formulaを使用する必要があることも
勉強になりました。