[Alegun]

Ячейки объединяются через установку в true свойства MergeCells объекта Range. Вот функция специально для этого

Код:

function SetMergeCells (Sheet: variant; Range: string; MergeCells: boolean): boolean;
begin
 Result:= true;
  try
  ExcelApp.ActiveWorkbook.Sheets.Item[Sheet].Range[Range {напр. 'A1:C2'}].MergeCells:= MergeCells;
  except
   Result:= false;
  end;
end;