Excel - Juntar columnas en una sola

   
Vista:

Juntar columnas en una sola

Publicado por Siul (2 intervenciones) el 15/06/2011 16:18:04
Hola, tengo un problema al juntar una serie de columnas en un única columna. Los datos que tengo son estos por ejemplo:
1 2 3
4 5 6
7 8 9
y quiero que me queden en una única columna tal que así,
1
2
3
4
5
6
7
8
9
Si me podéis echar un cable se agradece ;)
Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Juntar columnas en una sola

Publicado por Armando (126 intervenciones) el 15/06/2011 22:09:44
Algo asi:
Sub CombCol()
Dim s As Single
Dim k As Integer
Dim R As Integer
k = 2
R = 0
[A1].Select
Columns("A:A").Insert Shift:=xlToRight
Range("A1") = "FINAL"
Do Until R > 65536 Or Cells(65536, k).End(xlUp).Value = ""
R = R + Range(Cells(1, k), Cells(65536, k).End(xlUp)).Rows.Count
Range(Cells(1, k), Cells(65536, k).End(xlUp)).Cut Range("A65536").End(xlUp).Offset(1, 0)
k = k + 1
Loop
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Juntar columnas en una sola

Publicado por Siul (2 intervenciones) el 16/06/2011 19:59:30
Gracias, lo probaré
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Juntar columnas en una sola

Publicado por Abisopn (1 intervención) el 23/02/2012 20:45:06
Amí si me sirvio, andubo de diez, Gracias......!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Juntar columnas en una sola

Publicado por eduardo eduardo140@hotmail.com (1 intervención) el 02/06/2016 08:32:55
Gracias amigo me has salvado con tu programa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar