Macro combinar celdas de columna si son de texto igual
Necesito hacer un informe pequeño, tengo una base de datos con esta didáctica:
____A____B______C
1_CASA_ROJO_JOSE
2_CASA_VERDE_LAURA
3_LOTE_AZUL_MARIO
4_CASA_CAFE_LUIS
... Por ejemplo, necesito combinar, según este ejemplo, las celdas A1 y A2, como una celda por tener mismo texto, y así sucecibamente, específicamente de esa columna donde encuentre 2 textos del mismo escrito y de celdas seguidas como una celda, esto a través de un botón que diga "Combinar Celdas".
1 Respuesta
Respuesta de Dante Amor
2
Pon la siguiente macro en tu botón
Sub Combinar_Celdas()
'Por Dante Amor
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ini = 1
ant = Cells(ini, "A").Value
For i = ini To Range("A" & Rows.Count).End(xlUp).Row + 1
If Cells(i, "A").Value <> ant Then
With Range(Cells(ini, "A"), Cells(fin, "A"))
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
ini = i
End If
fin = i
ant = Cells(i, "A").Value
Next
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
