Excel - Una macro para mover datos de filas a columnas

Problema

Tengo datos en una sola columna y me gustaría transponerlos en una fila por cada tres filas con un delimitador de espacio, por ejemplo; La columna de datos varía en la cantidad de datos cada vez.

 ABCDEFGHIJ etc. 

Dentro

 ABCDEFGHIJ etc. 

Solución

Supongamos que los datos están en A2 hacia abajo con A1 que tiene encabezados de columna.

Prueba esta macro

• Los resultados estarán en las columnas C a E.

 Prueba secundaria () Dim rng As Range, m As Integer, c As Range Columns ("c: E"). Delete m = 3 Set rng = Range (Range ("a2"), Range ("a2"). End ( xlDown)) Set c = Range ("a2") Do While c "" 'MsgBox c.Address Range (c, c.Offset (m - 1, 0)). Copy Cells (Rows.Count, "c"). End (xlUp) .Offset (1, 0) .Pasado Transpaso Especial: = True Set c = c.Offset (m, 0) Loop End Sub 

Gracias a Venkat1926 por este consejo.