¿Cómo numerar o renumerar automáticamente después de filtrar en Excel?

Como todos sabemos, después de filtrar los datos que tienen una lista de números de serie, los números de fila en la hoja de cálculo se mostrarán igual que los números originales; no se renumeran automáticamente. Sin embargo, a veces, es posible que desee renumerar las filas en secuencia en la hoja de cálculo filtrada, como se muestra en las siguientes capturas de pantalla. En este artículo, hablaré sobre cómo numerar o renumerar automáticamente después de filtrar en Excel.

Numeración automática o renumeración después de filtrar con código VBA

Numeración automática o renumeración después de filtrar con Kutools para Excel

Numeración automática o renumeración después de filtrar con código VBA

En el estado filtrado, no puede aplicar el controlador de Autollenado para completar la secuencia de números; solo puede llenarlos escribiendo los números uno por uno. Pero esto será tedioso y llevará mucho tiempo si hay muchas celdas que necesitan ser renumeradas. Aquí, presentaré un código VBA para resolver esta tarea.

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

2. Haga clic en Insertar > Módulo, y pegue la siguiente macro en la ventana del Módulo.

Código VBA: Numeración automática o renumeración después de filtrar

Sub Renumbering()
	'Updateby Extendoffice
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

3. Después de pegar el código, presione la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarle que seleccione un rango de celdas donde desea numerar o renumerar automáticamente las filas, vea la siguiente captura de pantalla:

4. Luego haga clic en Aceptar, y sus celdas seleccionadas se habrán renumerado secuencialmente como se muestra en la siguiente captura de pantalla:

Nota: Este código destruirá los números de fila de la serie original cuando cancele la función de filtro. Por lo tanto, necesita hacer una copia de seguridad de sus datos primero.

Numeración automática o renumeración después de filtrar con Kutools para Excel

Si ha instalado Kutools para Excel, con su poderosa función Insertar número de secuencia, puede insertar números de secuencia en los datos filtrados rápidamente y fácilmente.

Después de instalar Kutools para Excel, realice los siguientes pasos:

1. Seleccione las celdas que desea renumerar para los datos filtrados.

2. Luego haga clic en Kutools > Insertar > Insertar número de secuencia, vea la siguiente captura de pantalla:

3. Luego, en el cuadro de diálogo Insertar número de secuencia que aparece, haga clic en el botón Nuevo, vea la siguiente captura de pantalla:

4. Y luego cree la lista de números de secuencia según sea necesario en la sección inferior izquierda, vea la siguiente captura de pantalla:

5. Después de configurar la secuencia, haga clic en el botón Agregar, y el elemento de secuencia se habrá agregado al cuadro de diálogo, vea la siguiente captura de pantalla:

6. Luego haga clic en Rellenar rango, y los datos filtrados se habrán renumerado de inmediato. Ver captura de pantalla:

¡Descargue y pruebe gratis Kutools para Excel ahora!

Demostración: Numeración automática o renumeración después de filtrar con Kutools para Excel

Artículo relacionado:

¿Cómo numerar automáticamente celdas combinadas en Excel?