エクセルで枝番を自動表示したい

エクセルで枝番を自動でつけたいのですが
例えば

　A 　　　B　　　　番号
あああ　いいい　　1-1
　　　　　ううう　　　1-2
えええ　おおお　　2-1

番号のところをこのように表示させたいのです。
途中で行が追加されることもあります。
その場合は連番で番号をふりなおしたいです。
関数かVBAでも何か方法があれば教えてください。
よろしくお願いします。

No.2 ベストアンサー 回答者： otagundan 回答日時： 2007/02/08 15:10

mshr1962さんの回答ですが

以下のように訂正する必要があると思います。
=COUNTA($A$2:$A2)&"-"&IF($A2<>"",1,MID(C1,FIND("-",C1)+1,LEN(C1))+1)

この回答へのお礼

ありがとうございます！！
関数が複数になると???になってしまうのでとても助かりました。

お礼日時：2007/02/08 15:29

No.1 回答者： mshr1962 回答日時： 2007/02/08 13:35

A2="あああ",B2="いいい"

　　　　　　,B3="ううう"
A4="えええ",B4="おおお"
なら
C2=COUNTA($A$2:$A2)&"-"&IF($A2<>"",1,MID(C1,FIND("-",C1)+1,LEN(C1)))
として下方にコピー

この回答へのお礼

ご回答ありがとうございます！
早速コピーしてみましたが
1-1
1-1
2-1
という風に●-▲の●は番号が増えていくのですが
▲の数字が「1」のままなのです。
すみません。もう一度教えていただけないでしょうか。
ちなみに
C3=COUNTA($A$2:$A3)&"-"&IF($A3<>"",1,MID(C2,FIND("-",C2)+1,LEN(C2)))
になっています。
よろしくお願いします。

お礼日時：2007/02/08 15:22