エクセルマクロでエラーの処理

質問

次のようなマクロを組みました。
１列目の値を２列目の値で割り、その答を３列目に表示するというものです。

Sub Macro1()
'
On Error GoTo ErrRtn:

R = 1

FLAG1:
Do While Cells(R, 1) <> ""
Cells(R, 3) = Cells(R, 1) / Cells(R, 2)
R = R + 1
Loop

End

ErrRtn:
Cells(R, 3) = "ゼロ割"
R = R + 1
GoTo FLAG1
'
End Sub

ゼロ割が発生したときのエラー処理として３列目に「ゼロ割」を表示させて次の行について処理を継続するようにしていますが、上記のプログラムだと全データのうち最初のエラーは思い通りになりますが、続けて処理をしていって２番目に発生したエラーではエラーメッセージが出て止まってしまいます。
どう直せばよいのでしょうか？

なお、上記だと２列目がゼロであるか否かを先に判定してやればよいのですが、エラー処理の質問をしたいために例として上記のような簡単なプログラムをあげているものです。

よろしくお願いします。

回答No.2

BLUEPIXY · ベストアンサー

ErrRtn:
Cells(R, 3) = "ゼロ割"
R = R + 1
GoTo FLAG1

の部分を

ErrRtn:
Cells(R, 3) = "ゼロ割"
Resume Next

としましょう

お礼

できました。ありがとうございました。

回答No.3

papayuka

取りあえず、これで希望になると思います。

Sub Macro1()
On Error GoTo ErrRtn:
R = 1
　Do While Cells(R, 1) <> ""
　　 Cells(R, 3) = Cells(R, 1) / Cells(R, 2)
　　 R = R + 1
　Loop
　Exit Sub
ErrRtn:
　Cells(R, 3) = "ゼロ割"
　Resume Next
End Sub

お礼

ENDではなくExit Subとするのが普通なのですね。
ありがとうございました。

回答No.1

a987654

ｅｒｒコードのリセットが必要ではありませんか？
ちなみに表記のプログラムでは、２番目以降のエラーを回避した時点で
無限ループになりませんか？

お礼

ありがとうございます。
エラーコードのリセットというのは自分も思いましたが、その術がわかりませんでした。
なお、ENDがErrRtnの前にあるので無限ループにはならないと思うのですが。
NO.2、NO.3の方の回答で解決しました。
ありがとうございました。