Hola, necesito ayuda tengo una columna con cien filas con datos y lo quiero transponer a filas de veite columnas es decir los primeros veinte datos de la columna en una fila, los siguientes veinte segundos datos en la segunda fila y asi sucesivamente hasta completar las cincuentas filas con los datos correspondientes.
Lun, 08/06/2015 - 17:39
#1
columnas i filas
Eso se puede hacer con la opción de pegar/transponer, cortando a mano en cada caso.
Si quieres hacerlo automáticamente debes programarte una macro que, en el caso de que no tengas huecos en tu lista y siempre esté en la columna A, podría ser la siguiente:
Sub transponer()
Dim inicio, a, fila As Integer
Dim val(20) As Variant
inicio = 0
Do While Cells(inicio + 1, 1) <> ""
For a = 1 To 20
val(a) = Cells(a + inicio, 1).Value
Next
inicio = inicio + a - 1
fila = inicio \ 20
For a = 1 To 20
Cells(fila, a) = val(a)
Next
Loop
End Sub
Saludos