![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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で質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) 同じ品番のマスタで最新日付のものに〇印を入れたい 3 2023/03/31 17:45
- その他(Microsoft Office) エクセルで1行の長いデータを指定の桁数で分割する方法が知りたいです。 4 2022/05/20 21:55
- Excel(エクセル) 【エクセル】並び替えからの並び替え方法 7 2022/07/22 09:46
- Excel(エクセル) エクセルの使い方について 2 2023/02/07 20:54
- Windows 7 エクセルで重複データから抽出したい 2 2022/05/18 23:31
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excelで連番でない数字を割り出す関数
その他(データベース)
-
エクセルのリストから欠番を拾い出したい
Windows 7
-
Excel上でのデータ数字が連番であることを確認する方法を教えてくださ
その他(Microsoft Office)
-
-
4
excelで欠番を探す方法
Windows Vista・XP
-
5
エクセル 連番が途切れているところに空白行を入れる
Excel(エクセル)
-
6
欠番の抽出について
Excel(エクセル)
-
7
Excelで[表1]にあって、[表2]にないものを抽出する関数
その他(Microsoft Office)
-
8
エクセル A表にあってB表に無い値を探したいのですが
Excel(エクセル)
-
9
エクセルで飛び飛びの日付をきちんと補完して並べ直すには?
Excel(エクセル)
-
10
【Excel】歯抜けデータの集約
Excel(エクセル)
-
11
歯抜けの番号を埋めて行の挿入
Access(アクセス)
-
12
エクセル(空き番号の最小値の取得について)
Excel(エクセル)
-
13
Excel:文字と数字の組合せ、次のセルの数字を1ずつ増やすには?
Excel(エクセル)
-
14
アクセスで「空き番」の確認
Access(アクセス)
-
15
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
16
エクセルシートのローマ字をひらがなにしたい。
Excel(エクセル)
-
17
条件付書式で「=#N/A」に色を付けたい
Excel(エクセル)
-
18
Excelで隣のセルと同じ内容に列を並べ替える方法
Excel(エクセル)
-
19
EXCELで2つの数値のうち大きい方を採択する数式
Excel(エクセル)
-
20
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について教えて...
-
Excelカスタム関数(アドイン登...
-
Excelデータをコピペして、ペー...
-
Excel関数-文字列で自動作成さ...
-
スプレッドシート、Excelでの数...
-
Excelで50個のセルに同じ文字を...
-
Microsoft Officeの中古は信用...
-
スプレッドシートで使う数式を...
-
エクセルVBA、別ブックへ転記す...
-
エクセルで会社の従業員のデー...
-
エクセルで不等号記号(≠)が上に...
-
エクセルの表で1年間の曜日を...
-
A列とB列を参照してC列に連番を...
-
エクセルの空欄をつめて、次の...
-
エクセルでの特別な文字を上に...
-
エクセルでセルに標準で入力さ...
-
エクセル日付 文字列の関数がエ...
-
エクセル2013で月間勤務表から...
-
エクセルの日付を編集する
-
EXCELの質問です 119から足した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報