Combinar varios rangos celdas de una columna
Quiero combinar varios rangos de celdas que tengo en una columna
Y quiero que queden así
Todos los datos están en la columna A, que contiene más de 60 mil registros.
1 Respuesta
Respuesta de Dante Amor
1
Prueba la siguiente macro.
Antes de ejecutar la macro, debes indicar en dónde empiezan tus datos, en esta línea de la macro:
Set celda = Range("A1") 'celda inicial de datosAl final de la macro, se encuentra esta línea, para centrar los datos, si no los quieres centras, entonces simplemente elimina la línea de la macro.
Range("A:A").HorizontalAlignment = xlCenterLa macro:
Sub CombinarCeldas()
Dim ar As Range, celda As Range
Dim ini As String, fin As String
'
Set celda = Range("A1") 'celda inicial de datos
'
ini = celda.Address
For Each ar In Range(ini, Range("A" & Rows.Count).End(3)).SpecialCells(xlCellTypeConstants).Areas
fin = ar.Cells(1).Address
If ini <> fin Then
With Range(ini, ar.Cells(1).Offset(-1).Address())
.VerticalAlignment = xlTop
.MergeCells = True
End With
End If
If ar.Count = 1 Then
ini = fin
Else
ini = ar.Offset(ar.Count - 1).Cells(1).Address
End If
Next
Range("A:A").HorizontalAlignment = xlCenter
End Sub[No olvides la valoración.
