Combina múltiples columnas en una en Excel

El uso de esta macro le permitirá transponer o convertir datos de varias filas y columnas en una hoja de cálculo de Microsoft Excel en una sola columna.

Convertir filas y columnas en una sola columna

Digamos que tiene los siguientes datos en una hoja de cálculo de Excel :

 480, 000 600, 000 720, 000
520, 000 650, 000 780, 000
300, 000 375, 000 450, 000
432, 000 540, 000 648, 000
260, 000 325, 000 390, 000
304, 000 380, 000 456, 000
340, 000 425, 000 510, 000
304, 000 380, 000 456, 000

Nuestra macro le permitirá convertir los datos anteriores para que se lea así en su documento:

 480, 000
520, 000
300, 000
432, 000
260, 000
304, 000
340, 000
304, 000
600, 000
650, 000
375, 000
540, 000
325, 000
380, 000
425, 000
380, 000
720, 000
780, 000
450, 000
648, 000
390, 000
456, 000
510, 000
456, 000 

Esta macro se programa con el supuesto de que sus datos varían de la fila 1 a la fila 8 y de las columnas A a C. Tenga en cuenta que puede modificar la macro para que coincida con su conjunto de datos exacto.

También tenga en cuenta que la prueba de macro es una macro operativa, mientras que deshacer deshará el resultado de la macro.

 Prueba secundaria ()
Dim j As Long, k As Long, r As Range, dest As Range
j = Rango ("A1"). Fin (xlToRight) .Columna
Para k = 1 a j
Establecer r = Rango (Celdas (1, k), Celdas (1, k). Fin (xlDown))
r.Copia
Establecer dest = Cells (Rows.Count, "A"). End (xlUp) .Offset (3, 0)
Dest.PasteSpecial
Siguiente k
End Sub
Sub deshacer ()
Dim r como rango
Establecer r = Rango ("a1"). Fin (xlDown). Offset (1, 0)
Set r = Range (r, Cells (Rows.Count, "A"). End (xlUp))
r.EntireRow.Delete
End Sub