ＶＢＡを使用し１０行間隔で同じ数字を入力させる方法

添付画像のように、数字は１０行ずつ WWP-70、WWP-71、WP-72と下一桁が増えていきますし、
数字の前にはアルファベットとハイフンが入ります。
あと、セルの中に×が記入してある場合は数字が打ち込まれないように(飛ばして)プログラミングして頂けないでしょうか？

エクセルは2003を使用しております。

小々厄介な内容ですが、ご存知の方ご教示下さい。

No.2 回答者： covachan 回答日時： 2014/02/21 02:07

大文字でなく小文字であれば

以下のように修正します。


=IF(AND(AND(G5<>"x", H5<>"x"),I5<>"x"), "WWP-" & TEXT(ROUNDDOWN((ROW()-1)/10,0)+1, "000"),"")

この回答への補足

×を小文字にする事で空白セルに出来ました。有難うございます。

質問には詳しく書いていなかったのですが(説明不足ですみません)
現状だと空白セルもカウントしてしまいます。

空白セルはカウントせずに、上から10個ずつの連番を打ち込んでいける状態が理想です。


ご面倒でなければ、もう少しお付き合い頂けると大変助かります。

補足日時：2014/02/21 03:13

No.1 回答者： covachan 回答日時： 2014/02/20 10:21

=IF(AND(AND(G5<>"X", H5<>"X"),I5<>"X"), "WWP-" & TEXT(ROUNDDOWN((ROW()-1)/10,0)+1, "000"),"")

とかの式でどうえすか？

この回答への補足

ご回答頂き有難うございます。

教えて頂いた数式をセルにはめ込んで使用してみたのですが、×が入っている箇所にも番号が入力されてしまいます。

×の行は空白セルにしたいと思っていますので、今一度ご教示頂けないでしょうか？

補足日時：2014/02/20 23:47