[Aleca]

Empezado por ingmichel

hola, no entiendo mucho el codigo, que representa la variable rango ?, el metodo poner datos para que es ? y nld no comprendo mucho, gracias de antemano...

rango es una variable del tipo ExcelRange, poner datos es un procedimiento que uso para pasar los datos a excel (no hace al ejemplo, me olvide de sacarlo).
nId es una variable Double y nfila es integer (esta es la que te devolveria al final del bucle la cantidad de filas).
el codigo seria algo asi.

Código Delphi [-]
...
    ExcelApp: TExcelApplication;
....
function Cuentofilas: Integer;
var
  Rango: ExcelRange;
  nId: Double;
  nFila: Integer;
  cCol_Ficha, cRango_Ficha, cRango_Avios, cCol_Avios: String;
begin
  nFila := 1; 
  while True do
  begin
    cRango_Ficha := 'A' + IntToStr(nFila); //suponiendo que sea la columna 'A'
    Rango := ExcelApp.Range[cRango_Ficha, cRango_Ficha];
    nId := Rango.Value2; //Si la celda no tiene valor devuelve 0

    if nId = 0 then
      Break

    Inc(nFila);
  end;
  Result := nFila - 1;

tene en cuenta que seguramente hay soluciones mejores, seguramente en las busquedas de los foros vas a encontrar mas info.