给你一段代码--
ExcelApp := CreateOleObject('Excel.Application');
MyworkBook := CreateOleObject('Excel.Sheet');
MyworkBook.worksheets[1].range['B11'].merge;
if Myworkbook.worksheets[1].range['C1'].mergecells then
begin
Myworkbook.worksheets[1].range['E1'].value := 'C1 is merge';
end;
测试过的