Soy nuevo en esto de las macros.
Tengo un archivo con datos ejemplo:
Nombre Apellido pat Apellido Mat etc.. En diferentes celdas, lo que necesito es una macro que primero les quites los espacios en blanco a la derecha, y lo segundo es que los concatene en una celda aparte, ¿no se si me explique? Y si alguien me pueda ayudar
2 Respuestas
Respuesta de James Bond
1
Prueba con esta macro solo cambia el A1 por la celda donde comiencen tus datos
Sub concatenar()
Set datos = Range("a1").CurrentRegion
With datos
r = .Rows.Count: c = .Columns.Count
For i = 1 To r
fila = .Rows(i)
For j = 1 To c
nombre = Trim(fila(1, j))
If j = 1 Then cadena = nombre
If j > 1 Then cadena = cadena & " " & nombre
Next j
.Cells(i, c + 1) = cadena
Next i
Set datos = Nothing
End With
End Sub
