[[oscarac]]

mmm eso me parece que tendrias que hacerlo en fomra manual
mas o menos el pseudocodigo seria asi

Código Delphi [-]
qryEjemplo.first
vCuenta := qryEjemploCuenta.asstring;
While not qryEjemplo.eof do
Begin
   While vCuenta = qryEjemploCuenta.Asstring do
   Begin
     ... instrucciones
   End
   // cuando la cuenta termine diferente coloco los totales y blanqueo las variables
   worksheet.cells [x,y] := 'Totales';
   vCuenta := qryEjemploCuenta.asstring;
end

y asi sucesivamente