خاصية MergeCells

البنية

مثال

With Workbook.sheets[1].Range['A3','A3'] do begin
  if MergeCells then MergeArea[1,1].Value := 100;
end;