Saltar al contenido

Concatenar textos consecutivos

Featured Replies

publicado

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

 

publicado
  • Autor

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.

publicado
  • Autor

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.

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.