Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿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 faltan algunos números en la secuencia, y ahora necesita insertar los números que faltan o las 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?

doc-insert-missing-number1 -2 doc-insert-missing-number2

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

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

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

Inserta los números que faltan o las filas en blanco para la secuencia con Kutools para Excel


Inserte los números faltantes o las filas en blanco para la secuencia faltante:

Kutools for Excel, Encontrar el número de secuencia faltante la función puede ayudarlo a encontrar rápida y fácilmente la secuencia que falta, e inserta los números que faltan o las filas en blanco en la secuencia de datos existente, o llena el color de fondo cuando encuentra la secuencia faltante.

Insertar números faltantes Insertar filas en blanco
doc-insert-missing-number10 -2 doc-insert-missing-number10 -2 doc-insert-missing-number10

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


flecha azul burbuja derecha Inserta 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 desaparecidos 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 de 2005023001 a 2005023011. Ver captura de pantalla:

doc-insert-missing-number3

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

doc-insert-missing-number4

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

doc-insert-missing-number5

4. Luego debe eliminar los duplicados haciendo clic Datos > Eliminar duplicadosy en el estallido Eliminar duplicados cuadro de diálogo, verifique Columna nombre que desea eliminar los duplicados, vea capturas de pantalla:

doc-insert-missing-number6 -2 doc-insert-missing-number7

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

doc-insert-missing-number8


flecha azul burbuja derecha Inserta los números que faltan para la secuencia con el código VBA

Si crees que hay tantos pasos con los métodos anteriores, aquí también tienes el código VBA que puede ayudarte a resolver este problema. Por favor haz lo siguiente:

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

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

VBA: inserta los números que faltan para la secuencia

Sub InsertValueBetween()
'Update 20130825
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:

doc-insert-missing-number9

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

doc-insert-missing-number1 -2 doc-insert-missing-number2

flecha azul burbuja derecha Insertar 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 necesita. 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 una Microsoft Visual Basic para aplicaciones ventana.

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

VBA: inserte filas en blanco para la secuencia faltante

Sub InsertNullBetween()
'Update 20130829
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 tecla para ejecutar este código, y se mostrará un cuadro de aviso, y luego seleccione el rango de datos que desea insertar filas en blanco para la secuencia que falta (no seleccione el rango del título), vea la captura de pantalla:

doc-insert-missing-number9

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

doc-insert-missing-number1 -2 doc-insert-missing-number10

flecha azul burbuja derecha Inserta los números que faltan o las 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.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Si tienes instalado Kutools for Excel, haz 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, mira la captura de pantalla:

doc-insert-missing-number10

3. En la Encontrar el número de secuencia faltante cuadro de diálogo, verificar Insertar el número de secuencia faltante para insertar los números que faltan o yoinsertando filas en blanco al encontrar números de secuencia faltantes para insertar filas en blanco como sea necesario. Ver captura de pantalla:

doc-insert-missing-number10

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

doc-insert-missing-number10  2 doc-insert-missing-number10  2 doc-insert-missing-number10

Descargue y pruebe de forma gratuita Kutools for Excel Now!


flecha azul burbuja derecha Demostración: inserte los números que faltan o las filas en blanco para la secuencia con Kutools para Excel

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Artículo relacionado:

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



Herramientas de productividad recomendadas

Office Tab

gold star1 Lleve las pestañas útiles a Excel y a otros programas de Office, como Chrome, Firefox y el nuevo Internet Explorer.

Kutools for Excel

gold star1 ¡Asombroso! Aumente su productividad en minutos 5. ¡No necesita ninguna habilidad especial, ahorre dos horas todos los días!

gold star1 Las nuevas características de 300 para Excel hacen que Excel sea mucho más fácil y potente:

  • Fusionar celdas / filas / columnas sin perder datos.
  • Combine y consolide varias hojas y libros de trabajo.
  • Comparar rangos, copiar rangos múltiples, convertir texto a la fecha, unidad y conversión de moneda.
  • Cuenta por colores, subtotales de paginación, clasificación avanzada y superfiltro,
  • Más Seleccionar / Insertar / Eliminar / Texto / Formato / Enlace / Comentario / Libros de trabajo / Hojas de trabajo Herramientas ...

Captura de pantalla de Kutools para Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Manouk · 1 months ago
    I am trying to use the VBA for sequential numbers. I have several columns next to the numbers of which numbers too. I.e.
    1. HL Meter 34
    2. HL Watermeter 40
    4. HL CO2meter 24

    When I use the code it works for the first 3 columns but it gets mixed up if I include the 4th column since it includes numbers too.
    How can I change the code to make sure the numbers in column 4 stay the same?
  • To post as a guest, your comment is unpublished.
    Rob · 1 months ago
    Thank you amazing
  • To post as a guest, your comment is unpublished.
    Gavin Cooke · 2 years ago
    What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
  • To post as a guest, your comment is unpublished.
    phani · 2 years ago
    I want to use "Inserting missing sequence Number" feature
    but it's not supporting for digits more than 12 ?
    there are many sets in which I want to insert the sequence between (it's a alpha-numeric digit)
    can you help
  • To post as a guest, your comment is unpublished.
    phani · 2 years ago
    Hi,
    I want to use "Inserting Missing Sequence Number", but it's not supporting if the no. of digits are more than 12
    can you help ?