¿Cómo insertar números o filas para números secuenciales faltantes en Excel?

Supongamos que tienes una lista de números secuenciales en una hoja de cálculo, pero hay algunos números faltantes en la secuencia, y ahora necesitas insertar los números faltantes o filas en blanco para asegurarte de que la secuencia esté completa (como se muestra en las siguientes capturas de pantalla). ¿Cómo podrías resolver rápidamente este problema en Excel?

Insertar números faltantes para la secuencia con la función Ordenar y Eliminar Duplicados Insertar números o filas en blanco para la secuencia con Kutools para Excel Insertar números faltantes para la secuencia con código VBA Insertar filas en blanco para la secuencia faltante con código VBA

Insertar números faltantes para la secuencia con la función Ordenar y Eliminar Duplicados

Quizás puedas encontrar los números faltantes uno por uno y luego insertarlos, pero te será difícil identificar la ubicación de los números faltantes si hay cientos de números secuenciales. En Excel, puedo usar la función Ordenar y Eliminar Duplicados para manejar esta tarea.

1. Después del final de la lista de secuencias, rellena otra serie de números secuenciales desde 2005023001 hasta 2005023011. Ver captura de pantalla:

2. Luego selecciona el rango de las dos series de números y haz clic en Datos > Ordenar de A a Z, ver captura de pantalla:

3. Y los datos seleccionados se han ordenado como se muestra en la siguiente captura de pantalla:

4. Luego necesitas eliminar los duplicados haciendo clic en Datos > Eliminar Duplicados, y en el cuadro de diálogo Eliminar Duplicados que aparece, marca el nombre de la columna de la que deseas eliminar los duplicados, ver capturas de pantalla:

5. Luego haz clic en Aceptar, los duplicados en la Columna A se han eliminado, y los números faltantes en la lista de secuencias se han insertado, ver captura de pantalla:

Insertar números o filas en blanco para la secuencia con Kutools para Excel

Aquí, te presentaré una herramienta fácil y práctica: Kutools para Excel, con su función Encontrar Secuencia Faltante, puedes insertar rápidamente el número de secuencia faltante o filas en blanco entre la secuencia de datos existente.

Si has instalado Kutools para Excel, por favor sigue los siguientes pasos:

1. Selecciona la secuencia de datos en la que deseas insertar los números faltantes.

2. Haz clic en Kutools > Insertar > Encontrar Secuencia Faltante, ver captura de pantalla:

3. En el cuadro de diálogo Encontrar Secuencia Faltante, marca Insertar números de secuencia faltantes para insertar los números faltantes o Insertar filas en blanco al encontrar números de secuencia faltantes para insertar filas en blanco según sea necesario. Ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y los números de secuencia faltantes o filas en blanco se han insertado en los datos, ver capturas de pantalla:

¡Descarga y prueba gratis Kutools para Excel ahora!

Insertar números faltantes para la secuencia con código VBA

Si sientes que hay demasiados pasos con los métodos anteriores, aquí también hay un código VBA que puede ayudarte a resolver este problema. Por favor, sigue los siguientes pasos:

1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la ventana Módulo.

VBA: insertar números faltantes para la secuencia

Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    outArr(i + 1, 1) = i + num1
    If dic.Exists(i + num1) Then
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo, selecciona el rango de datos donde deseas insertar los números faltantes (no selecciones el rango de título), ver captura de pantalla:

4. Luego haz clic en Aceptar, los números faltantes se han insertado en la lista de secuencias. Ver capturas de pantalla:

Insertar filas en blanco para la secuencia faltante con código VBA

A veces, solo necesitas localizar el lugar de los números faltantes e insertar filas en blanco entre los datos, para que puedas ingresar la información según sea necesario. Por supuesto, el siguiente código VBA también puede ayudarte a resolver este problema.

1. Mantén presionadas las teclas ALT + F11, y se abrirá una ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la ventana Módulo.

VBA: insertar filas en blanco para la secuencia faltante

Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    If dic.Exists(i + num1) Then
        outArr(i + 1, 1) = i + num1
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 1) = ""
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo, luego selecciona el rango de datos donde deseas insertar filas en blanco para la secuencia faltante (no selecciones el rango de título), ver captura de pantalla:

4. Luego haz clic en Aceptar, las filas en blanco se han insertado para la lista de secuencia faltante. Ver capturas de pantalla:

Artículo relacionado:

¿Cómo identificar la secuencia de números faltantes en Excel?