Dividir columnas excel 2003

[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