エクセルでの番号振り直し

質問

行数が１行か２行のものがランダムに混在するのですが、追加で行を挿入したり削除した際にセルAの001,002…の番号を振り直すことは可能でしょうか？
ちなみにマクロなどは使わない方向でよろしくお願いします。

セルA 　セルB
１　　　　　001 　　　　 あいうえお
2
3 002　　　　　かきくけ
4　　 　　　　さしすせそ
5
6 003　　　　　たちつてと

回答No.3

keithin · ベストアンサー

１行か２行ずつの組と組の間には，かならず１行（以上）の空き行が挟まっているとする
つまり，空行の下のデータあり行に番号を振ることにする
＃この前提から，先頭の「００１」の行は上に空行が無いのでイレギュラーになる

手順：
Ａ列を縦一列全部列選択する
右クリックしてセルの書式設定の表示形式でユーザー定義を選び
000
と設定しておく

Ａ１（先頭）に
１
を記入する

Ａ２に
=IF(AND(OFFSET(B2,-1,0)="",B2<>""),COUNT(OFFSET($A$1,0,0,ROW()-1,1))+1,"")
と式を記入して，下向けにずらっとコピーしておく

＃いわずもがなですが，行を行削除してもエラーや計算間違いにならないようにはしてありますが，行を挿入すると番号列は空のままなので，番号の数式を埋めるのだけは手動で行うことになります。
既存の行をコピーして挿入すれば大丈夫ですけどね。

お礼

ありがとうございます。
この方法で振り直しができました！

回答No.2

佐藤 志緒（@g4330）

A列を
=ROW()
としましょう
挿入、削除があっても自動的に変わります。

補足

すみません、もう少し具体的に教えていただいてもよいでしょうか？

回答No.1

mshr1962

A1=IF(B1="","",TEXT(COUNTA(B$1:B1),"000"))
で下方にコピー