distribuir una columna en diferentes columnas

[jhon fredy]

hola expertos buenas noches  mi idea es como podremos distribuir 800 numeros que se encuentran en la columna A pasarlos a la columna E en grupos de 40 numeros por columna 

 

[JSDJSD]

Prueba a ver si es lo que necesitas no se si te entendí bien

Distribución en grupos.xlsm

[Antoni]

Igual es esto:

Sub Distribuir()
Application.ScreenUpdating = False
For x = 0 To 19
   Range("A" & (x * 40) + 1).Resize(40, 1).Copy Cells(1, x + 5)
Next
End Sub

 

[JSDJSD]

Por eso mismo decía yo que no sabía si lo había entendido bien o no. Perfecto Antoni

[Antoni]

Hace 1 hora, JSDJSD dijo:

Por eso mismo decía yo que no sabía si lo había entendido bien o no. Perfecto Antoni

Con el amigo jhon fredy nunca se sabe. ?

 

[jhon fredy]

muchas gracias a ambos perfecto