Como juntar varias columnas en una

Que tal AleKiko,..

Suponiendo qu los datos los tengas en A1 - B1 - C1, pon esta introducion en
la celda D1
=CONCATENAR(A1,B1,C1)
saludos

"AleKiko" escribió en el mensaje
news:
Mostrar la cita

Tengo una serie de datos en las columas A, B y C, las tres normalmente
tendran distinto numero de datos, como hacer para poner por ejemplo en D,

los
Mostrar la cita

datos de A, B y C dejando una celda en blanco entre ellas??

gracias por adelantado.

saludos.

Gracias, pero no es eso lo que quiero, seguramente no me expliqué bien.

Los datos por ejemplo los tengo desde A1 hasta A15, B1 hasta B10 y C1 hasta
C9, teniendo en cuenta que no siempre acabarán en A15, B10 y C9, lo que
quiero es en colocar por ejemplo en C, en este caso seria desde C1 hasta C36,
siendo C16 y C27 celdas en blanco para diferenciar donde termina y donde
empiezan los datos de cada columna que he unido.

saludos.


"Jesus Peralta" wrote:

Mostrar la cita

Que tal AleKiko,..

Suponiendo qu los datos los tengas en A1 - B1 - C1, pon esta introducion en
la celda D1
=CONCATENAR(A1,B1,C1)
saludos

"AleKiko" escribió en el mensaje
news:
> Tengo una serie de datos en las columas A, B y C, las tres normalmente
> tendran distinto numero de datos, como hacer para poner por ejemplo en D,
los
> datos de A, B y C dejando una celda en blanco entre ellas??
>
> gracias por adelantado.
>
> saludos.
>

hola.
te recomiendo que tengas que programar y generar un bucle con el comando
while.
tu condicion seria mientras cell(i,j)=""

Gracias, eso me temia, lo malo es que no se por donde empezar.

saludos.


"Aurelio" escribió:

Mostrar la cita

hola.
te recomiendo que tengas que programar y generar un bucle con el comando
while.
tu condicion seria mientras cell(i,j)=""

Hola AleKiko

prueba el siguiente codigo
como son solo 3 columnas creo que es mejor copiarlo asi.

un saludo
juan

en un modulo estandar

Sub test()
Dim flA As Integer, flB As Integer

flA = Range("a1", Range("a1").End(xlDown)).Rows.Count
flB = Range("b1", Range("b1").End(xlDown)).Rows.Count

Range("A1", Range("A1").End(xlDown)).Copy Range("D1")
Range("B1", Range("B1").End(xlDown)).Copy Range("D" & flA + 2)
Range("C1", Range("C1").End(xlDown)).Copy Range("D" & flA + flB + 3)
End Sub