Tìm 2 số serial thiếu trong chuỗi 5000 số serial

[vuvanthe2000]

Gửi các bậc tiền bối.
Mong các bậc tiền bối giúp em vụ này ạ.
Em có 5000 số serial sản xuất. ( số có quy luật. Chia làm 25 lô sản xuất khác nhau. mỗi lô 200 sản phẩm)
Tuy nhiên sau khi sản xuất thì chỉ đếm được 4998. Tức là thiếu mất 2 số serial.
Mong các cụ giúp em tìm ra 2 số serial nhanh nhất có thể.
Em xin gửi file đính kèm

Em cảm ơn!

 

[Ba Tê]

Em xin gửi bác 3 model ví dụ thực tế dữ liệu nhà em ạ.

Bắt đầu từ số nhỏ nhất đến số lớn nhất của 7 ký từ cuối.
Bạn xem file này, kết quả có giống ý bạn không

 

[vuvanthe2000]

Nếu chỉ thay đổi số seri thì có thể chạy code này tôi làm bên sheet Model A, các model khác tương tự:

Sub a()
Dim wf As WorksheetFunction, rng As Range, nmin As Long, nmax As Long, res_seri, res, cell As Range
Set wf = WorksheetFunction
Set rng = Range("C3:C" & [C100000].End(xlUp).Row)
ReDim res_seri(0 To rng.Rows.Count - 1): ReDim res(0 To 0)
For i = 1 To rng.Rows.Count
    res_seri(i - 1) = CLng(Right(rng(i, 1).Value, 7))
Next
nmin = wf.Min(res_seri): nmax = wf.Max(res_seri)
For i = nmin To nmax
    Set cell = rng.Find("*" & i, , xlValues)
    If cell Is Nothing Then
        res(UBound(res)) = Format(i, "0000000")
        ReDim Preserve res(UBound(res) + 1)
    End If
Next
[F3].Resize(UBound(res), 1) = wf.Transpose(res)
End Sub

Bắt đầu từ số nhỏ nhất đến số lớn nhất của 7 ký từ cuối.
Bạn xem file này, kết quả có giống ý bạn không

Xin được cảm ơn 2 bác excel_lv1.5 và Ba tê rất nhiều ạ.