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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excelで連番でない数字を割り出す関数
その他(データベース)
-
エクセルのリストから欠番を拾い出したい
Windows 7
-
Excel上でのデータ数字が連番であることを確認する方法を教えてくださ
その他(Microsoft Office)
-
-
4
excelで欠番を探す方法
Windows Vista・XP
-
5
エクセル 連番が途切れているところに空白行を入れる
Excel(エクセル)
-
6
Excelで[表1]にあって、[表2]にないものを抽出する関数
その他(Microsoft Office)
-
7
欠番の抽出について
Excel(エクセル)
-
8
エクセル A表にあってB表に無い値を探したいのですが
Excel(エクセル)
-
9
エクセルで飛び飛びの日付をきちんと補完して並べ直すには?
Excel(エクセル)
-
10
歯抜けの番号を埋めて行の挿入
Access(アクセス)
-
11
EXCELで2つの数値のうち大きい方を採択する数式
Excel(エクセル)
-
12
【Excel】歯抜けデータの集約
Excel(エクセル)
-
13
エクセル if文で偽判定のとき、何も起こらないようにしたいのですが・・・
Access(アクセス)
-
14
エクセル(空き番号の最小値の取得について)
Excel(エクセル)
-
15
Excel セル内の文字と数字をわけるには??
Excel(エクセル)
-
16
EXCELで通し番号の行に欠番有りの番号の行を照応させる方法を教えてください。
その他(Microsoft Office)
-
17
エクセルシートのローマ字をひらがなにしたい。
Excel(エクセル)
-
18
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
-
19
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
-
20
EXCEL95 VLOOKUP関数で半角と全角
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】スペースがいくつ入っ...
-
西暦や和暦の表示をyyyymmdd表...
-
Excelのセルを飛ばして入力する
-
Excelのオートフィル
-
別シートからの文字を変更
-
Excel 2019 のピボットテーブル...
-
エクセルの行の抽出について質...
-
【マクロ】エクセルにかいてあ...
-
スプレッドシート クエリ関数 1...
-
エクセルでセルに「氏名を入力...
-
MOS365 Excel Expert / Excel R...
-
excelの不要な行の削除ができな...
-
EXACT関数とIF関数の組み合わせ...
-
スプレッドシートの関数VLOOKUP...
-
Excelで全角を半角にしたいので...
-
Excel初心者です。 詳しい方、...
-
エクセルの数式で教えてください。
-
4つのパターンを表示するEXACT...
-
スマートな関数を教えて下さい。
-
【Excel】セル内の時間帯が特定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報