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

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

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

No.1 回答者： ASIMOV 回答日時： 2008/08/09 20:25

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

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

この回答へのお礼

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

お礼日時：2008/08/13 19:18

No.2 回答者： dodemoii 回答日時： 2008/08/09 20:36

こんにちは

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

では。

この回答へのお礼

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

お礼日時：2008/08/13 19:21

No.3 ベストアンサー 回答者： maron--5 回答日時： 2008/08/10 06:34

◆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)
★下にコピー

この回答へのお礼

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

お礼日時：2008/08/13 19:23

No.4 回答者： misatoanna 回答日時： 2008/08/10 09:59

> ４と９を抜いて自動作成する方法

> 40番代，400番代なども，飛ばして作成

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

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

この回答へのお礼

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

お礼日時：2008/08/13 19:29