Hola.
Cuando te sugerí ordenarlos fué por tu comentario anterior:
Cita:
|
De esta forma me funciona muy bien pero de que manera podria hacer que la agrupaciones se deslicen a la ultima fila y no los agrupe en la primera
|
Entonces si son ordenados por 'precio' (la celda por la que se agrupó) lógicamente los registros agrupados quedan al final. Del código de ordenamiento tendrías que cambiar la comparación:
Código Delphi
[-] if Cells[ACol,j] > Cells[ACol,j+1] then
por:
Código Delphi
[-] if StrToInt(Cells[ACol,j]) > StrToInt(Cells[ACol,j+1]) then
A decir verdad respetar el orden de manera estricta despues de usar
DeleteRow no lo veo sencillo. Quizá trabajando un poco sobre el código que te adjunté le encuentres la solución...
Un saludo.