[fofka]

Вопрос такого плана. Данные грузятся в цикле. Тут все работает.

 StringGrid2.RowCount:= 39;
       for i := 1 to 38 do
    begin
     StringGrid2.Cells[2,i+3]:= Sheet1.Range['D' + IntToStr(i+3)];
     StringGrid2.Cells[3,i+3]:= Sheet1.Range['E' + IntToStr(i+3)];
     StringGrid2.Cells[4,i+3]:= Sheet1.Range['G' + IntToStr(i+3)];
     StringGrid2.Cells[5,i+3]:= Sheet1.Range['H' + IntToStr(i+3)];
     StringGrid2.Cells[6,i+3]:= Sheet1.Range['I' + IntToStr(i+3)];
   try
    StringGrid2.Cells[11,i+3]:= Format('%10.0f', [StrToFloat(Sheet1.Range['J' + IntToStr(i+3)])]);
     except
    StringGrid2.Cells[11,i+3]:= Sheet1.Range['J' + IntToStr(i+3)];
   end;

  try
    StringGrid2.Cells[12,i+3]:= Format('%10.0f', [StrToFloat(Sheet1.Range['J' + IntToStr(i+3)])]);
     except
    StringGrid2.Cells[12,i+3]:= Sheet1.Range['J' + IntToStr(i+3)];
   end;
  end;

    Workbook.Close(0);
    Ex.Quit;
    Ex:= UnAssigned;
end;

Как видно из кода загрузка в 11 и 12 колонку идет с Sheet1.Range 'J'. Вопрос в том как добавить цифры к загружаемым данным (у меня расчет работы по часам).
Как то так

"StringGrid2.Cells[12,i+3]:= Sheet1.Range['J' + IntToStr(i+3)] + 3000;
"StringGrid2.Cells[13,i+3]:= Sheet1.Range['J' + IntToStr(i+3)] + 5000;

Вроде объяснил