Concatenar textos consecutivos

[Vladimir]

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

[Antoni]

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]

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]

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]

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.