Concatenar textos consecutivos

[Vladimir 16]

Hola a todos.

Solicito ayuda para poder concatenar textos de celdas consecutivas. La verdad parece sencillo pero no doy con la solución.

Atento a sus respuestas quedo agradecido de antemano.

Prueba concatenar textos consecutivos.xlsm

Edited June 15, 2020 by Vladimir

[Antoni 5,163]

Prueba la macro:

Sub Prueba()
For x = 1 To 23
   If Not IsNumeric((Trim(Range("A" & x)))) = True Then
      fila = fila + 1
      Range("B" & fila).Value = Range("A" & x) & " " & Range("A" & x).Offset(1, 0)
      x = x + 1
   End If
Next
End Sub

 

[Vladimir 16]

Muchas gracias Antoni.

Te comento que la macro sí funciona muy bien, pero las concatena en diferentes filas.

Por favor podrias modificar el codigo para que las concatene en la misma fila de la celda original con texto.

De todas formas con la respuesta que me diste ya tengo mas claro el camino a seguir. 

Muchas gracias nuevamente master Antoni.

[DiegoPC 555]

Buenas tardes Vladimir / un gusto coincidir gran maestro Antoni

Adjunto otra opción, aunque no tan pequeña como la de Antoni

Prueba concatenar textos consecutivos.xlsm

[Vladimir 16]

Muchas gracias DiegoPC.

Funciona de maravilla tu macro, tal cual lo requiero.

Agradesco tu tiempo y desprendimiento personal en atender mi solicitud.

Nuevamente te quedo muy agradecido.

 

TEMA SOLUCIONADO.