¿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
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 Datos > 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 Datos > 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.
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:
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
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!