columnas i filas

2 envíos / 0 nuevos
Último envío
gualo
Imagen de gualo
Offline
última acción: Hace 7 años 3 semanas
alta: 08/06/2015 - 17:24
Puntos: 25
columnas i filas

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.

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 3 semanas 20 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12725
Eso se puede hacer con la

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