¿Cómo rellenar hacia abajo números consecutivos en Excel omitiendo las filas ocultas?
Supongamos que tiene un filtro aplicado al rango de datos y desea rellenar con números consecutivos únicamente las celdas visibles en blanco, tal como se muestra en la siguiente captura de pantalla. En este caso, arrastrar el controlador de relleno normalmente no completará correctamente las celdas filtradas. En este artículo, le explicaré algunos trucos útiles para resolver esta tarea en Excel.
 |  |  |
Rellenar hacia abajo Números consecutivos omitiendo filas ocultas con fórmula
Rellenar hacia abajo Números consecutivos omitiendo filas ocultas con código VBA
Rellenar hacia abajo Números consecutivos omitiendo filas ocultas con Kutools para Excel
Rellenar hacia abajo Números consecutivos omitiendo filas ocultas con fórmula
Para rellenar con números consecutivos únicamente en las celdas visibles, una fórmula sencilla puede ayudarle. Siga estos pasos:
1. Introduzca esta fórmula: =SUBTOTAL(103,$B$3:$B3) (B3 es la celda visible correspondiente a aquella desde la que desea comenzar a rellenar el número de secuencia) en la primera celda donde quiera rellenar números consecutivos —A3 en este ejemplo— y pulse después la tecla Intro. Obtendrá un 1. Vea la captura de pantalla:
2. A continuación, seleccione la celda A3 y arrastre el controlador de relleno hacia abajo hasta las celdas en las que desee rellenar con números consecutivos. Vea la captura de pantalla:
Rellenar hacia abajo Números consecutivos omitiendo filas ocultas con código VBA
El siguiente código VBA también le permite rellenar números consecutivos únicamente en las celdas visibles. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Rellenar hacia abajo Números consecutivos omitiendo filas ocultas:
Sub FillValue()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xVal As Long
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = xRg.SpecialCells(xlVisible)
Debug.Print xRg.Address
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xVal = xVal + 1
xCell = xVal
Next
End Sub
3. Pulse a continuación la tecla F5 para ejecutar este código. Aparecerá un cuadro de diálogo solicitándole que seleccione el rango de datos que desea rellenar. Vea la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y los números consecutivos se habrán rellenado únicamente en las celdas visibles.
Rellenar hacia abajo Números consecutivos omitiendo filas ocultas con Kutools para Excel
Los dos métodos anteriores solo permiten rellenar hacia abajo números consecutivos en las celdas visibles. Si desea rellenar una secuencia como AA-0001-BB, AA-0002-BB, AA-0003-BB…, dichos métodos no funcionarán. Pero ¡no se preocupe! La utilidad Kutools para Excel de Insertar número de secuencia le permitirá hacerlo rápida y fácilmente.
Tras instalar Kutools para Excel, proceda de la siguiente manera:
1. Seleccione las celdas en las que quiera rellenar con cadenas secuenciales.
2. Haga clic en Kutools > Insertar > Insertar número de secuencia. En el cuadro de diálogo Insertar número de secuencia, haga clic en el botón Nuevo. Vea las capturas de pantalla:
 | |  |
3. En el cuadro de diálogo expandido, configura lo que necesites en la sección inferior izquierda y, al mismo tiempo, previsualiza la secuencia en el panel inferior derecho. ¡Mira la captura de pantalla!
4. Tras finalizar la configuración, haga clic en el botón Agregar para guardar este nuevo elemento en el cuadro de lista superior. Vea la captura de pantalla:
6. A continuación, seleccione el elemento que ha creado y haga clic en el botón Rellenar rango. Las cadenas secuenciales se rellenarán únicamente en las celdas visibles. Vea la captura de pantalla:
¡Descargue y pruebe gratis Kutools para Excel ahora!
Demostración: Rellenar hacia abajo Números consecutivos omitiendo filas ocultas con Kutools para Excel
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos