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

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

Inserte los números que faltan para la secuencia con la función Ordenar y eliminar duplicados Inserte los números que faltan para la secuencia con el código VBA Inserte filas en blanco para la secuencia faltante con código VBA Inserte números faltantes o filas en blanco para la secuencia con Kutools para Excel

Inserte los números que faltan para la secuencia con la función Ordenar y eliminar duplicados

Puede ser que pueda encontrar los números que faltan uno por uno y luego insertarlos, pero es difícil para usted identificar la ubicación de los que faltan si hay cientos de números secuenciales. En Excel, puedo usar la función Ordenar y eliminar duplicados para hacer frente a esta tarea.

1. Después del final de la lista de secuencias, complete otros números de secuencia desde 2005023001 hasta 2005023011. Vea la captura de pantalla:

2. Luego seleccione el rango de los dos números de secuencia y haga clic en Data > Ordenar de la A a la Z, ver captura de pantalla:

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

4. Entonces necesitas eliminar los duplicados haciendo clic Data > Eliminar duplicados, y en el salido Eliminar duplicados cuadro de diálogo, verifique Columna nombre que desea eliminar los duplicados, vea capturas de pantalla:

5. Luego haga clic OK, los duplicados en Columna A se ha eliminado y se han insertado los números que faltan en la lista de secuencias, vea la captura de pantalla:

Inserte los números que faltan para la secuencia con el código VBA

Si cree que hay tantos pasos con los métodos anteriores, aquí también tiene un código VBA que puede ayudarlo a resolver este problema. Haz lo siguiente:

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo ventana.

VBA: inserte los números que faltan 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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente, seleccione el rango de datos en el que desea insertar los números que faltan (no seleccione el rango del título), vea la captura de pantalla:

4. Y luego haz clic OK, los números que faltan se han insertado en la lista de secuencias. Ver capturas de pantalla:

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

A veces, solo necesita ubicar el lugar de los números que faltan e insertar filas en blanco entre los datos, para que pueda ingresar la información que necesite. Por supuesto, el siguiente código VBA también puede ayudarlo a resolver este problema.

1. Mantenga pulsado el botón ALT + F11 llaves, y abre un Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo ventana.

VBA: inserte 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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro de aviso, y luego seleccione el rango de datos en el que desea insertar filas en blanco para la secuencia que falta (no seleccione el rango de título), vea la captura de pantalla:

4. Y luego haz clic OK, las filas en blanco se han insertado para la lista de secuencia que falta. Ver capturas de pantalla:

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

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

Si tienes instalado Kutools for Excel, haga lo siguiente:

1. Seleccione la secuencia de datos en la que desea insertar los números que faltan.

2. Hacer clic Kutools > recuadro > Encontrar el número de secuencia faltante, ver captura de pantalla:

3. En la Encontrar el número de secuencia faltante cuadro de diálogo, comprobar Insertando el número de secuencia faltante para insertar los números que faltan o yoInsertar filas en blanco cuando se encuentran números de secuencia faltantes para insertar filas en blanco como necesite. Ver captura de pantalla:

4. Y luego haz clic OK y los números de secuencia que faltan o las filas en blanco se han insertado en los datos, ver capturas de pantalla:

¡Descargue y pruebe Kutools para Excel ahora!

  Demostración: inserte números faltantes o filas en blanco para la secuencia con Kutools para Excel

Artículo relacionado:

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

---

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

• Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
• Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
• ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Leer más ... Descarga gratis... Compra...