エクセルで番号を振る（連番）。VBAまたは関数

質問

添付のような表を作っています。これは何の表かというと、注文するものがCATALOG＃としてすでに入力されている表に、、ORDER　NOと行NOをふろうとしているものです。

CATALOG#の列を見ると、行が挿入されているところが二箇所あります。
これは、ORDER　NO.を分けろという指示です。
ですので、この挿入された行で区切られたグループごとにORDER　NO.をふって、発注するということになります。

ORDER NO.は、表にあるように、すべてのCATALOG＃について付けなければなりません。
一番はじめに入力した数字（この場合は09912）から連番になりますが、先述のように、ひとかたまりになっているものは、同じORDER　NO.です。

また、行NO.は、ORDER　No.が同じものの［中］で、連番でふられなければなりません。これは必ず1からはじまります。表を見ていただくと規則性がわかるかと思います。

現在は、ORDER　NO.をそれぞれ09912、009913...と手で入力し、それをコピーペースト。また行No.のほうも1を手入力し、下にドラッグしている状態です。
関数、またはVBAを使用して、この手間を省くことはできないものでしょうか。
尚、ORDER　No.は一番上に入力する数字（この場合は09912）は、都度変わります。しかしそれ以降は連番です。行No.は常に１から始まる連番です。

何かいい案があればどうぞお願いいたします。

回答No.2

nattocurry · ベストアンサー

ORDER No が列A、行No が列B、CATALOG# が列Cとして、

【セルA3】=IF(C3="","",IF(A2="",A1+1,A2))
【セルB3】=IF(C3="","",IF(B2="",1,B2+1))

と入力し、下にコピペしてください。

空行が2行以上続くと、まともな結果にはなりませんので、ご注意を。

お礼

今回はORDER NOが文字列だったので、うまくいかないところもありましたが、数値だと、うまくいきそうですね。

全く考え付かなかったです。ありがとうございました！

回答No.1

yambejp

たとえばORDER NOがA列、連番がB列、１行目からはじまるとして、B1に

=IF(A1="","",COUNTIF(A$1:A1,A1))

として、下にコピーするってことでどうでしょう？

お礼

すごいですね～。思いつかなかったです！！！