关于EXCEL的问题（大虾救命）(20分)

Sheet.Cells[10,1]:='项目名称';
Sheet.Cells[10,2]:=StrToInt(FieldByName('Szx_Lf_Hds').AsString)+StrToInt(FieldByName('Szx_Cf_Hds').AsString);
Sheet.Cells[10,4]:=Format_JE(FieldByName('Szx_Lf_Fwf').AsFloat+FieldByName('SZX_CF_FWF').ASFloat);
想要EXECL用两格来显示第二行的数据
第三行也用两格来显示，
该如何写代码啊。

我是上面的这样的格式可以合并么？

你要的就是合并两个格吧?给你,拿分!例如:
Sheet.Range['A1','D1'].Merge(True);
给你一个我以前写的函数:
使用例子:你照着下面这个来就行了.
aSheet.Range[''+TurnExcelCell(1,1)+'',''+TurnExcelCell(1,2)+''].MergeCells:=True;
function TurnExcelCell(a, k: integer): string;
var x,y,z:string;
b,c,i,j:integer;
begin
b:=a div 26;
c:=a mod 26;
if (b>=27) and (c>0) then
begin
Result:='0';
//若返回值為0則無效
abort;
end
else
if (b>0) and (b=27) then
i:=64+b-1
else
if (b>0) and (b<27) then
i:=64+b
else
if b=0 then
i:=64+26;
if c>0 then
j:=64+c
else
if c=0 then
j:=64+26;
x:=Chr(i);
y:=Chr(j);
if (b>0) and (c>0) then
z:=x+y
else
if (c=0) and (b=27) then
z:=x+y
else
if ((c=0) and (b>0)) or ((c>0) and (b=0)) then
z:=y
else
z:=x;
Result:=z+IntToStr(k);
end;

接受答案了.