Número repetidos o faltantes

Te anexo una macro.

Sigue las Instrucciones para ejecutar la macro
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5

Sub series()
'Por.DAM
Set h1 = Sheets("Hoja3")
c = "A"
u = h1.Range("A" & Rows.Count).End(xlUp).Row
With h1.Sort
 .SortFields.Clear: .SortFields.Add Key:=h1.Range(c & "2:" & c & u)
 .SetRange h1.Range("A1:B" & u): .Header = xlYes: .Apply
End With
Columns("C:E").Clear
k = 1
For i = 2 To u
    If Cells(i, "A") = Cells(i, "B") Then
        Cells(k, "C") = Cells(i, "A")
        k = k + 1
        Cells(k, "C") = Cells(i, "A")
        k = k + 1
    Else
        For j = Cells(i, "A") To Cells(i, "B")
            Cells(k, "C") = j
            k = k + 1
        Next
    End If
Next
Range("D1:E1") = Array("Repetidos", "Faltantes")
u = h1.Range("C" & Rows.Count).End(xlUp).Row
k = 2
m = 2
For i = 1 To Range("C" & u)
    a = Application.CountIf(Range("C1:C" & u), i)
    If a > 1 Then
        Cells(k, "D") = i
        k = k + 1
    ElseIf a < 1 Then
        Cells(m, "E") = i
        m = m + 1
    End If
Next
End Sub

En la columna D te pone los repetidos y en la columna E te pone los faltantes.

Saludos. Dante Amor
Si es lo que necesitas.