¿Cómo numerar automáticamente una celda combinada en Excel?
¿Cómo podemos rellenar una serie de números en una lista de rangos combinados de distinto tamaño en Excel? Lo primero que se nos ocurre es arrastrar el controlador de autorrelleno para rellenar los rangos combinados, pero en este caso aparecerá un mensaje de advertencia y no será posible completar la acción.
Dado que el controlador de relleno no admite las combinaciones, a continuación le presentamos algunos trucos alternativos para solucionar este problema.
Numeración automática / relleno de Combinada con código VBA
Numeración automática / relleno de Combinada con código VBA
El siguiente código VBA le permite numerar rápidamente las celdas combinadas seleccionadas. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 y se 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: Numeración automática de Combinada
Sub NumberCellsAndMergedCells()
'Update 20141028
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)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. A continuación, pulse la tecla F5 para ejecutar este código y aparecerá un cuadro de diálogo que le permitirá seleccionar las celdas combinadas que desea rellenar; consulte la captura de pantalla:
4. Tras seleccionar las celdas combinadas y hacer clic en Aceptar, estas se habrán rellenado con números secuenciales; consulte la captura de pantalla:
Artículos relacionados:
¿Cómo numerar o renumerar automáticamente las filas tras aplicar un filtro en Excel?
¿Cómo combinar rápidamente filas adyacentes que contienen los mismos datos en Excel?
¿Cómo descombinar celdas y rellenarlas con los valores duplicados en 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