Excel - Ayuda macro separar datos

 
Vista:
sin imagen de perfil
Val: 6
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Ayuda macro separar datos

Publicado por David (17 intervenciones) el 16/10/2016 21:27:43
Buenos días amigos de la comunidad, tengo la siguiente consulta:

Tengo que separar con una macro los datos de una columna de excel en varias columnas , les explico...

tengo en la columna A varios datos y deseo que al ejecutar la macro se puedan separar esos datos en otras columnas en grupos de 3, por ejemplo
1
2
3
4
5
6

y deseo que aparezcan de este modo

Columna B
1
2
3

Columna C
4
5
6

*No siempre serán solo 6 datos, el número puede variar

Espero puedan prestarme su ayuda, de antemano muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 83
Ha aumentado su posición en 2 puestos en Excel (en relación al último mes)
Gráfica de Excel

Ayuda macro separar datos

Publicado por GMG (119 intervenciones) el 18/10/2016 16:32:58
Hola David;

Entiendo que las columnas no tienen cabeceras.

Más o menos sería algo así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub partir()
Dim filas As Integer
i = 0
 
registros = Application.WorksheetFunction.Count(Range("A:A"))
filas = InputBox("¿Filas por columna?", "Partidor", "3")
 
While registros > 0
    Range("A1").Offset(filas * i, 0).Range("A1:A" & filas).Copy
    Range("B1").Offset(0, i).PasteSpecial
    registros = registros - filas
    i = i + 1
Wend
 
End Sub

Te he puesto un inputbox que te pregunta cuantas filas quieres por columna, por defecto te pone un 3, pero puedes cambiar el valor al que necesites.

Espero que te sea de ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar