Excelで連番でない数字を割り出す関数

久しぶりに質問させて頂きます。

Excelのセルに
１
２
３
４
６
と、途中まで連番ですが、【５】が抜けているのを
探しだす関数などありますか？
これだけの数なら見ただけでも容易に探せますが、
万単位になると、目で見て探すのでは、時間がかか
りすぎます。
当方は、携帯の修理をしているもので、不具合の出
てしまったお客様の携帯を早く修理・返却したいた
め、便利な関数などありましたら教えて頂けると助
かります。
よろしくお願いします。

No.2 ベストアンサー 回答者： stones 回答日時： 2003/09/28 23:08

たとえば、A1＝１、A2＝２、A3＝３、A4＝４、A5＝６となっているとして、

B2に「=IF(A2-A1>1,"○","")」と入力して、一番下までセルをフィルすると、
番号が飛んでいるところの横にだけ○印がでます。

状況が良くわからないのですが、この文面からだとこんな感じで大丈夫だと
思うんですが。。。

No.5 回答者： papayuka 回答日時： 2003/09/29 00:15

リストが単純な整数で、Sheet1のA列に入っているとして、Sheet2のA1にでも

=VLOOKUP(ROW(),Sheet1!A:A,1,0)

のように入れて下に必要行コピーしますと #N/A が返る行番号が無い数字になります。
検索で対象を「値」にして「#N/A」を探すなり、オートフィルタを使うなりすれば発見出来ると思います。

ただ、数万行もあると関数を残したままで処理するのは実用的では無いので、算出後はコピーして形式選択の値貼り付けで「値」にしておく方が無難です。

No.4 回答者： abcxyz3000 回答日時： 2003/09/28 23:42

Dim c As Object が抜けていました。

Option Explicit が設定していなければ、なくてもかまいませんが。。。

No.3 回答者： abcxyz3000 回答日時： 2003/09/28 23:29

'サンプルは・・・・

'(1)検索番号は 1から100
'(2)検索対象範囲は Sheet1 の A1からC500
'欠番の出力範囲は Sheet2 の A1 からです。

Sub FindNum()

Dim i, j As Long
For i = 1 To 100 '<-----(1) 変更してください。
With Worksheets(1).Range("a1:c500") '<-----(2) 変更してください。
Set c = .Find(i, LookIn:=xlValues)
If c Is Nothing Then
j = j + 1
Worksheets(2).Cells(j, 1) = i
End If
End With
Next i
End Sub

No.1 回答者： whitepepper 回答日時： 2003/09/28 22:28

　件数が万単位ということですので、既にExcelでする仕事ではないですね。

データベースソフトの仕事です。

　私は、便利な関数の多さから、Accessよりも桐を多用します。参考リンクはその関数一覧です。

　それで、お尋ねの件なら、218番の♯直前値を使います。検索条件で、[連番]≠♯直前値＋１を指定し、そこへカーソルを飛ばします。あとは、会話式に処理します。

参考URL：http://www.nsknet.or.jp/~habata/kiri7/kansu.htm, …