VBA 0/0 オーバーフロー

Question

前提

VBA　オーバーフロー

最終行から割算を行いたく知識不足ながら作ってみたVBAですが
オーバーフローしてしまいます。
確認した所　0/0　の部分がエラーになっております。

実現したいこと

0/0＝0になるように動作して欲しいです。

発生している問題・エラーメッセージ

実行時エラー’6’
オーバーフローしました。

該当のソースコード

Sub test()

    Dim i As Long
    Dim Lastrow As Long
    
                         
     '最終行
    Lastrow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = Lastrow To 15 Step -1  '最終行から15列目まで繰り返す。
    
    Cells(i, 18) = Cells(i, 15) / Cells(i, 14)
    
    
    Next   
    
End Sub

試したこと

IF構文を勉強しましたが挫折致しました。

補足情報（FW/ツールのバージョンなど）

2013エクセル

Answer 1

    If Cells(i, 14) = 0 Then
        Cells(i, 18) = 0
    Else
        Cells(i, 18) = Cells(i, 15) / Cells(i, 14)
    End If

Comments

[gajumaru6]

有難う御座います！出来ました！感謝しきれないです。

Answer 2

0/0＝0になるように動作して欲しいです。

無理です。割る数がゼロでないかを確認して条件分岐させ、ゼロ除算そのものを回避するより他に手段はありません。

Comments

[gajumaru6]

無理じゃなかったみたいです。

[maisumakun]

「0/0＝0」という演算を行わせているわけではありません。

[hatena19]

私の回答は、「割る数がゼロでないかを確認して条件分岐させ、ゼロ除算そのものを回避する手段」を紹介してます。