[Ildar-tsr]

Вот код набросал, который динамически задает количество строк и столбцов. Формулы не вставлял пока что, сильно на работе занят. Если что пиши в личные сообщения, или на ildar-tsr@yandex.ru Продолжим.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var e: OleVariant;
    m,n,i: integer;
begin
  e:= CreateOleObject('Excel.Application');
  e.Workbooks.Add;

  m:= StrToInt(Edit1.Text);
  n:= StrToInt(Edit2.Text);

  //Заполняем строки
  for i:= 1 to m do
    e.Cells[i+2,1].Value:= i;

  //Заполняем столбцы
  for i:= 1 to n do
    e.Cells[2,i+1].Value:= i;

  e.Range[e.Cells[1,1],e.Cells[1,n+3]].Select;
  e.Selection.Merge;
  e.Cells[1,1].Value:= 'Определение min группы экспертов';
  e.Cells[1,1].Select;
  e.Selection.HorizontalAlignment:= -4108;

  e.Cells[2,n+2].Value:= 'Sum';
  e.Cells[2,n+3].Value:= 'Weight';

  e.Visible:= true;
end;