Dividir columnas excel 2003

[dyn_amite]

Hola amigos!

Sigo con mis batallas por el excel. Ahora dispongo de un documento excel con 2 columnas muy largas, ordenaditas correctamente. Ahora me gustaria dividir estas columnas en tres, pq con un solo par de columnas el documento mide cerca de 400 paginas, y me gustaria que hiciera cerca de 150 mas o menos. Lo que ahora tengo es:

REFERENCIA VALOR

000001 1
000002 2
000003 3
000004 10
000005 100
000010 95
000015 ...
000033 ...

Y me gustaria que quedara asi:

REFERENCIA___VALOR____REFERENCIA___VALOR_______REF ERENCIA___VALOR

000001_______1________000305_______41__________001 042_______44
000002_______10_______000410_______64__________001 513_______111
000006_______21_______000435_______21__________002 413_______65
000010_______23_______000501_______100_________019 531_______79
000015_______64_______000673_______12__________034 562_______81


Espero que les quede claro. Muchas gracias de antemano. Un saludo,


dyn

[judoka]

¿ y no te sive cortar y pegar ? ¿o quieres algo que lo haga automaticamente?

[dyn_amite]

Hola judoka. Cortar y pegar no me sirve, bueno si pero tardaria muxo, ya que se trata de unas 100000 filas mas o menos. Se que existe una forma automatica, pues ya lo hice una vez, pero ahora no lo recuerdo. A ver si a a alguien le viene la idea.
Un saludo.

Dyn

[manu011]

Hola Dyn,

me veo en la misma situación. Una columna larguísima que me gustaría separar en varias más cortas. Y si puede ser en hjas diferentes mucho mejor.

Si ya sabes como ahcerlo, por favor, dime como lo hiciste.

Muchísimas gracias.

[YAID]

Hola Dyn, jajaja que exagerado no existen 100,000 filas a menos que las hayas aumentado por alguna macro...

en fin.. te soluciono de esta manera...

1.- Primero que nada une tus 2 columnas que quede una sola...

2.- Luego deja libre la celda A1 de manera temporal si asi lo quieres.

3.- Cuenta las columas de manera que sean multiplo de 3, si no es multiplo de 3 rellena con datos ficticios la fila que te falta o las 2 filas que te faltan al ultimo (no pueden ser mas de 2 obviamente)

4.- Posicionate en la celda donde empiecen los datos y corre el siguiente codigo:


Sub dividir()

Range(ActiveCell, Selection.End(xlDown)).Select
Selection.EntireRow.Select
celdas = Selection.Rows.Count

'Para poner la primera parte de celdas

Celdas1 = (celdas / 3) - 1
Range(ActiveCell, ActiveCell.Offset(Celdas1, 1)).Copy
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste
ActiveCell.Offset(0, -2).Select

'Para poner la segunda parte de celdas

ActiveCell.Offset(Celdas1 + 1, 0).Select
Range(ActiveCell, ActiveCell.Offset(Celdas1, 1)).Copy
Selection.End(xlUp).Select
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste
ActiveCell.Offset(0, -4).Select
Application.CutCopyMode = False

'Para poner la tercera parte de celdas

ActiveCell.Offset(Celdas1 + Celdas1 + 2, 0).Select
Range(ActiveCell, ActiveCell.Offset(Celdas1, 1)).Copy
Selection.End(xlUp).Select
ActiveCell.Offset(0, 6).Select
ActiveSheet.Paste
ActiveCell.Offset(0, -6).Select
Application.CutCopyMode = False

End Sub



5.- Ejecuta la macro y listo