エクセルで「４」「９」抜けの連番を振りたい

質問

エクセルで１から２０００までの連番を，
「４」と「９」を抜いて自動作成する方法はないでしょうか。
40番代，400番代なども，飛ばして作成したいのですが。

番号は，各セルに1個ずつ振ります。

回答No.3

maron--5 · ベストアンサー

◆A1に「1」を入力して
A2=--SUBSTITUTE(A1+IF(MOD(A1,1000)=888,112,IF(MOD(A1,100)=88,12,IF(MOD(A1,10)=8,2,1))),4,5)
★下にコピー

お礼

関数ではムリっぽい話があり，半ばあきらめていました。
自分以外の人も使用するリストに使う番号なので，
この方法が最適です。
ありがとうございました。

回答No.4

misatoanna

> ４と９を抜いて自動作成する方法
> 40番代，400番代なども，飛ばして作成

とにかく４か９がつく数字を除くのでしたら、置換と並べ替えを組合わせたら
いかがでしょうか。

1.A1:A2000に、オートフィルで連番を作成します。
2.置換処理を二度実行します。
　　1)検索する文字列：*4*　　置換後の文字列：（空白）
　　2)検索する文字列：*9*　　置換後の文字列：（空白）
3.Ａ列を昇順に並べ替えます。

お礼

いろいろな方法があるのですね。
検索・置換は，まったく考えていませんでした。
今回は，リストの構成上，この方法ではできなかったんですが，
「４」「９」抜けのリストは，今後も多く使用するので，
本当に助かります。
ありがとうございました。

回答No.2

dodemoii

こんにちは

過去log
http://questionbox.jp.msn.com/qa2173744.html?

では。

お礼

結構探したんですが，このログは見つけられませんでした。
重複質問お恥ずかしい限りです。
ありがとうございました。

回答No.1

ASIMOV

いろいろな方法が有ります（ＶＢＡとかも）

一例を．．
一旦、１－２０００まで連番を記入します（Ａ列１行からとします）
Ｂ列1行に
=ISERR(SEARCH(4,A1,1))+ISERR(SEARCH(9,A1,1))
と入れ、下にコピーします
そうすると、４も９も無い行は"2"と表示され４か９が有る行は０か１になります
オートフィルターを設定し、オプションで"2"以外とすると
４と９が含まれる行だけが抽出されます
行選択で、行削除とすれば完成です

お礼

Ｂ列を使って，オートフィルターを使う
言われると，わかるのですが，自分では気づきませんでした。
わかりやすい説明ありがとうございました。