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

¿Cómo podríamos llenar una serie de números en una lista de celdas combinadas de diferentes tamaños en Excel? Lo primero que se nos ocurre es arrastrar el controlador de autollenado para rellenar las celdas combinadas, pero, en este caso, obtendremos el siguiente mensaje de advertencia y no podremos llenar las celdas combinadas.

Dado que el controlador de relleno no admite celdas combinadas, aquí puedo hablar sobre algunos otros trucos para resolver este problema.

Numerar / llenar celdas combinadas automáticamente con código VBA

Numerar / llenar celdas combinadas automáticamente con código VBA

El siguiente código VBA puede ayudarte a numerar rápidamente las celdas combinadas seleccionadas. Por favor, sigue los siguientes pasos:

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

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Numeración automática 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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo que te permitirá seleccionar las celdas combinadas que deseas llenar, ver captura de pantalla:

4. Después de seleccionar las celdas combinadas y hacer clic en Aceptar, ahora tus celdas combinadas seleccionadas se habrán llenado con números secuenciales, ver captura de pantalla:

Artículos relacionados:

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

¿Cómo fusionar rápidamente filas adyacentes con los mismos datos en Excel?

¿Cómo descombinar celdas y llenarlas con valores duplicados en Excel?