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
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 Sub

Cambia "B3:B6" por el rango de celdas que quieras unir, y [C3] por la celda destino.

Saludos. Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas