用D5将Excel中的sheet2的内容合并到sheet1中去.....(100分)

如何用D5中的控件实现内容的合并？
我想将一个book中的sheet2,sheet3...的内容合并到sheet1中；
或者，将book1中的sheet2合并到book2的sheet1里面。
拜托各位大侠，特别是程云！分数悉数奉上！！

分别读出各个 sheet 的内容，再 copy或叠加过去不就行了？只要格式相同，没什么难的。
操作 excel 的贴子，前面有好多了，自己查查吧。

我试着用逐个单元格的赋值过去，但结果却是格式有点乱，字体和位置都变了。
程序如下，请各位大虾指点：
usedRows2:= excelworksheet2.UsedRange[1].Rows.Count;
usedcolumns2:=excelworksheet2.UsedRange[1].Columns.count;
usedRows1:= excelworksheet1.UsedRange[1].Rows.Count;
usedcolumns1:=excelworksheet1.UsedRange[1].Columns.count;

for i:=1 to usedrows2 do begin
for j:=1 to usedcolumns2 do begin
excelworksheet1.Cells.item[usedrows1+i,j]:=
excelworksheet2.Cells.item[i,j];
end;
end;

listen

时间太久 强制结束