请问StringGrid能像EXECL一样在某一列中进行单元格合并吗？

将stringgrid的defaultdrawing属性改为false，然后： 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
Rect: TRect; State: TGridDrawState); 
begin 
if (acol=1) and (arow=1) then 
rect.Bottom:=rect.Bottom+rect.Bottom-rect.Top; 
if not((acol=1) and (arow=2)) then 
begin 
stringgrid1.Canvas.FillRect(Rect); 
stringgrid1.canvas.textout(rect.left,rect.top+18,StringGrid1.cells[acol,arow]); 
end; 
end; 
以上代码仅说明原理。