自動連番号について

質問

自動連番号について

いつもお世話になります。
Windows XP EXCELL2003 です。

タイトルバーの各セルの色づけの意味は
A B C D　バックが黄色は数式入りでロックがかかっています。
E F G H その都度手入力です。　当然ロックはかかっていません。

A列は自動で連番をしています。
B列は「重複」表示をしている以外は値がない空白です。

A　B　C　Dの各列には数式及び条件付書式が以下のようにあります

A２　=IF(E2="","",COUNTA($E$2:E2))
B２　=IF(OR(COUNTIF($F$2:F2,F2)>1,COUNTIF($K$2:K2,K2)>1),"重複","")
条件付書式　　値に等しい　=”重複”
C２　=MID(I2,1,1)
D２　=MID(F2,1,1)&MID(F2,2,1)
I２ 　=PHONETIC(G2)

以上です。
ここでご相談若しくはご指導を仰ぎたいのは
B列に　「重複」とされた所は連番を飛ばしたいのですが何かいい方はないでしょうか。

例えは
A２　０００１
A３
A４　０００２
A５　０００３
という具合になれば良いのですが。
よろしく御願いします。

回答No.1

nattocurry · ベストアンサー

A2に
=IF(B2="重複","",ROW()-1-COUNTIF(B$2:B2,"重複"))

お礼

皆さんのおかげでほんのちょっぴりですが
関数は成長しています。

今後ともご指導の程よろしく御願いします。

回答No.3

KURUMITO

例えばＡ2セルに次の式を入力して下方にオートフィルドラッグします。

=IF(OR(B2="重複",E2=""),"",MAX(A$1:A1)+1)

その後にＡ列を選択して右クリックし「セルの書式設定」の「表示形式」で「ユーザー定義」から「種類」の窓には　0000　と入力します。

お礼

Mr.KURIMOTO
いつもお世話になりご指導有難うございます。
皆さんのおかげでほんのちょっぴりですが
関数は成長しています。

今後ともご指導の程よろしく御願いします。

回答No.2

jcctaira

【A2セル】
　　=IF(OR(E2="",B2="重複"),"",COUNTA($E$2:E2)-COUNTIF($B$2:B2,"重複"))

お礼

いつもお世話になりご指導有難うございます。
皆さんのおかげでほんのちょっぴりですが
関数は成長しています。

今後ともご指導の程よろしく御願いします。