Unificar múltiples columnas en una sola columna
Hola
Tengo varias columnas (de la columna B a la AKV). Cada Columna tiene 10 filas. Requiero ordenar todas estas columnas en una sola columna (en forma de lista, manteniendo el orden, esto es, empezando con el dato que aparece en B1, luego B2... Hasta B10, luego el dato de C1, C2.. Hasta C10 y así sucesivamente)
¿Alguien conoce una macro para hacer esto?
Gracias
1 Respuesta
Respuesta de Luis Mondelo
1
Te adjunto la macro para conseguirlo
Sub proceso()
'por luismondelo
Range("b1").Select
Do While ActiveCell.Value <> ""
ubica = ActiveCell.Address
Range(ActiveCell, ActiveCell.End(xlDown)).Copy
Range("b200000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Range(ubica).Offset(0, 1).Select
Loop
End Sub
