Concatenar

21/10/2008 - 16:37 por Antonio | Informe spam
Hola. Os cuento mi problema. Tengo una tarifa en la que la referencia esta
dividida en tres columnas y que ocupa unas 11.000 filas. Para realizar las
busquedas lo que hago es concatenar las tres columnas en una nueva pero lo
hago manualmante y lo debo hacer habitualmente. He encontrado este macro por
la red, y aunque no se na de codigo, lo he apañao para automatizar el
proceso pero funciona bien con pocas filas pero cuando le digo que me lo
haga en las 11.000 filas de la hoja se me cualga. ¿podeis ayudarme?

Sub concatenar()
u = Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To u
Cells(i, 1) = Cells(i, 2) & "" & Cells(i, 3) & "" & Cells(i, 4)
Next
MsgBox "Datos concatenados por correctamente"
End Sub

Saludos y gracias.
 

Leer las respuestas

#1 Cacho
21/10/2008 - 23:10 | Informe spam
Hola! Antonio. Por supuesto que todo depende de la PC.

Pero puedo comentarte que mientras que tu procedimiento me demora 10
segundos, el siguiente:
_______________________________

Sub Concatenar2()
Application.ScreenUpdating = False
u = [C65536].End(xlUp).Row
MiFormula = "(B2:B" & u & ") & (C2:C" & u & ") & (D2:D" & u & ")"
Range("A2:A" & u) = Evaluate(MiFormula)
End Sub

_______________________________

se completa en uno.

Comenta como te resulta a tí, por favor.
Saludos, Cacho.

Preguntas similares