excel VBA For ～Next構文について

質問

excel VBA For ～Next構文についての質問です。

以下のようなマクロがあります（実際はもう少し複雑なことをやっていますが）

　　　　For i = 4 To 178

　　　　　Cells(i, 16).FormulaR1C1 = "=RC[-2]-'" & Lm & "'!RC[-2]"

　　　 Next i

これに「もし、『Cells(i, 1)』が空白なら、この処理は行わずに、次の行にすすめ」という指示を加えたいのですが、こんな簡単なこと(?)で行き詰ってしまっています。

とりあえず以下のように修正をしてみたのですが・・・

　　 For i = 4 To 178

　　 If Cells(i, 1) = "" Then GoTo ワープ:

　　 Cells(i, 16).FormulaR1C1 = "=RC[-2]-'" & Lm & "'!RC[-2]"

　　 ワープ:

　 Next i

　これで一応こちらの求めている処理はできたのですが、もっと簡単に（もしくはすっきりと）
できる方法はないでしょうか？

　以上、よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

＞もし

と言えばIfでしょう。

for i = 4 to 178
　if celsl(i, 1) <> "" then
　　cells(i, 16).formula = …
　end if
next i

お礼

早速のご回答、ありがとうございました。

＜＞　というのを知りませんでした。
実際のマクロでもスムーズにいきました。

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