Saltar al contenido

Una macro para concatenar datos de filas

publicado

Buenas noches

quisiera pedir su ayuda ya que tengo un archivo de excel con aproximadamente 1000 registros.

En la columna "C" tengo datos los cuales deberían estar concatenados, sin embargo, estan dispersos, por ejemplo, la celda C1 dice HOLA, la celda C2 dice SOY y la celda C3 dice JUANITO, el resultado que quiero lograr es HOLA SOY JUANITO en una sola celda a partir de donde empieza la palabra HOLA. No importa que queden celdas vacias debajo de cada cadena concatenada.

Adjunto un archivo donde se puede ver un ejemplo de los datos que tengo.

Agradezco su apoyo.

Prueba.xls

Featured Replies

publicado

Hola:

Puede que esto sea lo que quiere/necesite.

Saludos

Prueba.xls

publicado
  • Autor

Gracias amigo Gengis Khan me sirvio la macro :tan:

  • 3 weeks later...
publicado

hola...

que deberìa cambiar si quisiera que esos datos concatenados, ma aparecieran en la hoja2

desde ya muchas gracias...

publicado

Hola:

Modificada la macro para dar lo resultados en la Hoja2.

Sub Concatenar()

Application.ScreenUpdating = False
fila = 2
Range("D:F").ClearContents


For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
Do Until Range("C" & x) = ""
Range("F" & fila) = Range("F" & fila) & Range("C" & x) & " "
x = x + 1
Loop

[COLOR=#0000ff][B] Hoja2.Range("A" & fila)[/B][/COLOR] = Range("A" & x - 1)
[B][COLOR=#0000cd]Hoja2.Range("B" & fila)[/COLOR][/B] = Range("B" & x - 1)
fila = fila + 1
Next


End Sub


[/CODE]

publicado

Gracias Gengis, le hice unos agregados de Hoja2.Range... a un par de lineas mas.

Me sirvio!!!

Archivado

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