Dividir columna en columnas pequeñas segun valor

[SOLOJC]

Buenas noches
He tratado de hacer una macro para que me divida una columna que contiene por ejemplo 200 datos en columnas pequeñas contiguas por ejemplo 5 columnas de 50, es decir si tengo en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Hola! SOLOJC. Por ejemplo así:

Sub Distribuir_columna()
Dim Q&, i&: Const Elem% = 50

Q = Cells(Rows.Count, "a").End(xlUp).Row

For i = 1 To Q Step Elem
  Cells(i...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí