¿Cómo numerar automáticamente las celdas combinadas en Excel?
¿Cómo podríamos completar números de serie en una lista de celdas combinadas de diferentes tamaños en Excel? Lo primero que tenemos en mente es arrastrar el controlador de Autocompletar para llenar las celdas combinadas, pero, en este caso, obtendremos el siguiente mensaje de advertencia y no podemos completar las celdas combinadas.
Dado que el controlador de relleno no admite las celdas combinadas, aquí puedo hablar sobre algunos otros trucos para resolver este problema.
Número automático / relleno de celdas combinadas con código VBA
Número automático / relleno de celdas combinadas con código VBA
El siguiente código VBA puede ayudarlo a numerar rápidamente las celdas combinadas seleccionadas. Haz lo siguiente:
1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: número automático de celdas combinadas
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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente que le permitirá seleccionar las celdas combinadas que desea completar, vea la captura de pantalla:
4. Después de seleccionar las celdas combinadas y haga clic en OK, ahora, sus celdas combinadas seleccionadas se han llenado con números secuenciales, vea la captura de pantalla:
Artículos relacionados:
¿Cómo numerar o renumerar automáticamente después del filtro en Excel?
¿Cómo fusionar rápidamente filas adyacentes con los mismos datos en Excel?
¿Cómo separar celdas y llenar con valores duplicados 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!