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

質問

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

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

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

回答No.2

covachan

大文字でなく小文字であれば
以下のように修正します。

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

補足

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

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

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

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

回答No.1

covachan

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

とかの式でどうえすか？

補足

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

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

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