
No.7
- 回答日時:
空き列をD列とします。
番号がA列A1:A100に入っているとします。
D1に=IF(ISERROR(MATCH(ROW(D1),$A$1:$A$100,0)),ROW(D1),"")といれ、下へ複写します。
欠番は数字が現れます。
1200-1300までの欠番の場合はROW(D1)+NのNを調整してください。この場合はROW(D1)+1199に修正する。
D1に=IF(ISERROR(MATCH(ROW(D1)+1199,$A$1:$A$100,0)),ROW(D1)+1199,"")
その後値をD列自身に複写し、D列をソートすれば飛び飛びがまとめられる。
ありがとうございました。D列に複写するときA列よりも長く下へ複写しなければなりませんね。A列が1000くらいまでは最初の式でいいのでしょうか。
No.6
- 回答日時:
#4です。
少し単純な別解。空き列(A列とする)に問題の番号列をソートするとする。
その後
Sub test03()
i = 0
j = 0
p01:
i = i + 1
ak = Cells(i, "A")
p02:
j = j + 1
bk = j
If ak = bk Then
GoTo p01
End If
If ak > bk Then
MsgBox j & "番なし"
GoTo p02
End If
If ak < bk Then End
End Sub
jはスタート番号の-1の数字をセットする。
文字列の場合は、BKの文字列化のため修正が必要。
No.5
- 回答日時:
VBAでやってみました
Public Sub missingNo(r as range)
Dim b As Range
Dim i As Integer
Set b = r.Item(1)
For i = 1 To r.Rows.Count - 1
x = ripper(b.Offset(i - 1, 0).Value)
y = ripper(b.Offset(i, 0).Value)
If Abs(x - y) > 1 Then
MsgBox b.Offset(i - 1, 0).Value & "と" & b.Offset(i, 0).Value & "の間が欠番です", vbOKOnly, "欠番"
End If
Next
End Sub
Public Function ripper(s As String) As String '数字以外を取り除く
ripper = ""
s = StrConv(s, vbNarrow)
For i = 1 To Len(s)
c = Mid(s, i, 1)
If ("0" <= c And c <= "9") Then
ripper = ripper + c
End If
Next
End Function
'
call missingNo(range("A1:A17"))
のように使います
No.4
- 回答日時:
VBAでやって見ました。
Sub test01()
s = InputBox("最初、最後") 'カンマで区切って
t = Split(s, ",")
For i = t(0) To t(1)
Set f = Range("A1:A100").Find(What:=i, After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If f Is Nothing Then
MsgBox i
End If
Next i
End Sub
(データ)
1
2
3
5
6
7
8
9
11
12
15
で4、10,13,14が指摘できます。
番号が文字列である場合は
Sub test01()
s = InputBox("最初、最後") '数字だと思って指定のこと
t = Split(s, ",")
For i = t(0) To t(1)
Set f = Range("A1:A100").Find(What:=Format(i, "0000"), After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If f Is Nothing Then
MsgBox Format(i, "0000")
End If
Next i
End Sub
などのように修正が必要で、文字を含んでいるA1234などの
場合はVBAのことが判らないと修正が難しいかと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Excelで連番でない数字を割り出す関数
その他(データベース)
-
エクセルのリストから欠番を拾い出したい
Windows 7
-
Excel上でのデータ数字が連番であることを確認する方法を教えてくださ
その他(Microsoft Office)
-
-
4
エクセル 連番が途切れているところに空白行を入れる
Excel(エクセル)
-
5
excelで欠番を探す方法
Windows Vista・XP
-
6
Excelで[表1]にあって、[表2]にないものを抽出する関数
その他(Microsoft Office)
-
7
欠番の抽出について
Excel(エクセル)
-
8
エクセル A表にあってB表に無い値を探したいのですが
Excel(エクセル)
-
9
抜けている行を追加したい
Excel(エクセル)
-
10
【Excel】歯抜けデータの集約
Excel(エクセル)
-
11
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
12
エクセル(空き番号の最小値の取得について)
Excel(エクセル)
-
13
Excelで隣のセルと同じ内容に列を並べ替える方法
Excel(エクセル)
-
14
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
15
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
16
条件付書式で「=#N/A」に色を付けたい
Excel(エクセル)
-
17
条件付き書式のコピーについて(参照先も自動で変更したい)
Excel(エクセル)
-
18
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
19
初心者なのですが・・・accessで抜けている番号を探すには?
Access(アクセス)
-
20
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について
-
【マクロ】【相談】Excelブック...
-
【画像あり】オートフィルター...
-
【マクロ】実行時エラー '424':...
-
エクセルのリストについて
-
【マクロ】左のブックと右のブ...
-
【マクロ】元データと同じお客...
-
【マクロ】数式を入力したい。...
-
他のシートの検索
-
Office2021のエクセルで米国株...
-
エクセルのVBAで集計をしたい
-
vba テキストボックスとリフト...
-
【マクロ】【配列】3つのシー...
-
【マクロ】変数に入れるコード...
-
【関数】=EXACT(a1,b1) a1とb1...
-
【マクロ】【画像あり】❶ブック...
-
エクセルシートの見出しの文字...
-
【マクロ画像あり】❶1つの条件...
-
【マクロ】【画像あり】ファイ...
-
エクセルの複雑なシフト表から...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】元データと同じお客...
-
エクセルの関数について
-
【画像あり】オートフィルター...
-
エクセルのVBAで集計をしたい
-
エクセルのリストについて
-
【マクロ】数式を入力したい。...
-
【マクロ】【相談】Excelブック...
-
Office2021のエクセルで米国株...
-
【マクロ】実行時エラー '424':...
-
他のシートの検索
-
エクセルの複雑なシフト表から...
-
【マクロ】【配列】3つのシー...
-
vba テキストボックスとリフト...
-
【マクロ】左のブックと右のブ...
-
【マクロ】変数に入れるコード...
-
エクセルシートの見出しの文字...
-
【マクロ】別ファイルへマクロ...
-
【関数】同じ関数なのに、エラ...
-
Amazonでマイクロソフトオフィ...
-
ページが変なふうに切れる
おすすめ情報