Note: The other languages of the website are Google-translated. Back to English

¿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?

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

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


flecha azul burbuja derecha 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:

doc-insert-missing-number3

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:

doc-insert-missing-number4

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

doc-insert-missing-number5

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:

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

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:

doc-insert-missing-number8


flecha azul burbuja derecha 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:

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 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:

doc-insert-missing-number9

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

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

flecha azul burbuja derecha 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.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días

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:

doc-insert-missing-number10

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:

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

¡Descargue y pruebe Kutools para Excel ahora!


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

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

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.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (10)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Gracias ! ¡Gran guión! ¿Cómo puedo modificar este script si digo que necesitamos procesar no solo la columna de ID + la columna de NOMBRE, sino también la columna de ID + la columna de NOMBRE + la columna NUEVA? ¿Cómo puedo agregar nuevas columnas en este script?
Este comentario fue minimizado por el moderador en el sitio
La siguiente es la macro modificada para incluir una columna agregada. Otro punto importante es que cuando se le solicite seleccionar el rango, solo debe seleccionar la primera columna. ¡Esto me tomó algunas horas! espero ahorrar el tiempo de los demás

Sub InsertarValorEntre()
'Actualizar por Extendoffice
Dim WorkRng como rango
Dim Rng como rango
Dim outArr como variante
Dim dic como variante
Establecer dic = CreateObject("Scripting.Dictionary")
Dim dic2 como variante
Establecer dic2 = CreateObject("Scripting.Dictionary")

'En caso de error Reanudar siguiente
xTitleId = "KutoolsforExcel"
Establecer WorkRng = Aplicación.Selección
Establecer WorkRng = Application.InputBox("Rango", xTitleId, WorkRng.Address, Tipo:=8)
num1 = WorkRng.Rango("A1").Valor
num2 = WorkRng.Rango("A" & WorkRng.Rows.Count).Valor
intervalo = num2 - num1
ReDim outArr(1 a intervalo + 1, 1 a 3)
Para cada anillo en WorkRng
dic(Rng.Valor) = Rng.Offset(0, 1).Valor
dic2(Rng.Valor) = Rng.Offset(0, 2).Valor
Siguiente
Para i = 0 A intervalo
outArr(i + 1, 1) = i + num1
Si dic.Existe(i + num1) Entonces
outArr(i + 1, 2) = dic(i + num1)
outArr(i + 1, 3) = dic2(i + num1)
otro
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

Si terminar
Siguiente
Con WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Valor = outArr
.Seleccione
End With
End Sub
Este comentario fue minimizado por el moderador en el sitio
esto funcionó y fue muy fácil completar la tarea. Gracias.
Este comentario fue minimizado por el moderador en el sitio
Muchísimas gracias. ¿Cómo cambio el script si los incrementos son solo 0.02 y no 1? Esto es para el script InsertNullBetween()
Este comentario fue minimizado por el moderador en el sitio
¿Qué pasa si quiero seleccionar 6 columnas y luego verificar la primera columna para las fechas y si faltan fechas, agregue una fila (celdas en blanco) para las 1 columnas?
Este comentario fue minimizado por el moderador en el sitio
Hola, quiero usar "Insertar número de secuencia faltante", pero no es compatible si no. de dígitos son más de 12 me pueden ayudar?
Este comentario fue minimizado por el moderador en el sitio
Quiero usar la función "Insertar número de secuencia que falta", pero no es compatible con dígitos de más de 12. hay muchos conjuntos en los que quiero insertar la secuencia entre (es un dígito alfanumérico) ¿pueden ayudarme?
Este comentario fue minimizado por el moderador en el sitio
¿Qué pasa si quiero seleccionar 6 columnas y luego verificar la primera columna para las fechas y si faltan fechas, agregue una fila (celdas en blanco) para las 1 columnas?
Este comentario fue minimizado por el moderador en el sitio
Gracias asombroso
Este comentario fue minimizado por el moderador en el sitio
Estoy tratando de usar el VBA para números secuenciales. Tengo varias columnas al lado de los números de los cuales números también. Es decir
1. Medidor HL 34
2. Medidor de agua HL 40
4. Medidor de CO2 HL 24

Cuando uso el código, funciona para las primeras 3 columnas, pero se confunde si incluyo la cuarta columna, ya que también incluye números.
¿Cómo puedo cambiar el código para asegurarme de que los números en la columna 4 permanezcan iguales?
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL