Números consecutivos en excel

tengo una lista de números consecutivos en excel y necesito saber cuando me falta un consecutivo. Me gustaría con una macro poder identificar rápidamente el o los números que faltan al momento de consultarlos.


Gracias.

1

1 respuesta

1
Respuesta de

Hola, te mando mi solución. En mi ejemplo los números están en una columna uno debajo de otro, sin celdas en blanco pero con saltos numéricos.

Solo tienes que posicionarte en el primer dato de la columna y ejecutar esta macro:

Sub consecutivos()
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
siguiente = valor + 1
If ActiveCell.Offset(1, 0).Value = siguiente Then
ActiveCell.Offset(1, 0).Select
Else
Do While ActiveCell.Offset(1, 0).Value <> siguiente And ActiveCell.Offset(1, 0).Value <> ""
listado = listado & "," & siguiente
siguiente = siguiente + 1
Loop
ActiveCell.Offset(1, 0).Select
End If
Loop
listado = Mid(listado, 2, Len(listado) - 1)
MsgBox "En este listado faltan los números:" & Chr(13) & Chr(13) & listado
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje

Más respuestas relacionadas

¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema Microsoft Excel o hacer tu propia pregunta: