Unir el contenido de varias celdas en una sola
Como puedo hacer con una macro unir el contenido de varias celdas en una sola y darle salto de renglón después de cada texto, me gustaría fuera con una macro.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub UnirCeldas()
'Por.Dante Amor
For Each c In Range("B3:B6")
cad = cad & c.Value & Chr(10)
Next
If cad <> "" Then
cad = Left(cad, Len(cad) - 1)
[C3] = cad
End If
End SubCambia "B3:B6" por el rango de celdas que quieras unir, y [C3] por la celda destino.
Saludos. Dante Amor
Recuerda valorar la respuesta.
