// Выберем лист с которым работаем, для первой книги, первый лист 
 WorkSheet := Excel.Workbooks[1].WorkSheets[1]; 
 

 
 // Можно выделить диапазон 
 Range := WorkSheet.Range[WorkSheet.Cells[LineNum + 1, ColNum], 
 WorkSheet.Cells[Rows, ColNum]];

 PerentRow: OleVariant; // Значения из указанной строки // Сохраним значения из LineNum строки в вариантный массив 
 PerentRow := WorkSheet.Range[WorkSheet.Cells[LineNum, 1],WorkSheet.Cells[LineNum, Columns].Formula; 

 Cell := Range.Find('Строка поиска', LookAt := xlPart, 
 LookIn := xlValues, SearchOrder := xlByColumns, SearchDirection 
 := 
 xlNext); iFirstAddress := Cell.Address; 
 repeat 
 // тут делаем любые преобразования с найденными ячейками 
 // Найдем очередную строку 
 Cell := Range.FindNext(After := Cell); 
 iAddress := Cell.Address; 
 until VarIsEmpty(Cell) or (iFirstAddress = Cell.Address); 
 {до тех пор, пока находит значения в колонке} 

 iAddress := Cell.Address;