delphi操作excel上下相邻单元格数据相同就合并单元格,该如何解决

delphi操作excel上下相邻单元格数据相同就合并单元格
delphi操作excel上下相邻单元格数据相同就合并单元格

数据如下:
----------
箱号
1
1
1
2
2
3
3
3
如何判断后将箱号相同的合并单元格?

谢谢!

[解决办法]
用下面代码调调看，就是控制Excel的操作，网上可以搜到很多，嘿嘿

Delphi(Pascal) code

var  I, J: Integer;  ExcelApp: Variant;  WorkBook: Variant;  WorkSheet: Variant;  ExcelApp := CreateOleObject('Excel.Application'); try   ExcelApp.Caption := '对账数据导出';   ExcelApp.WorkBooks.Add;   WorkBook := ExcelApp.Workbooks[1];   WorkSheet := WorkBook.Worksheets.Item[1];      ……   if WorkSheet.Cells[I,J].Value := WorkSheet.Cells[I,J+1].Value then   begin    ExcelApp.Range[WorkSheet.Cells[I,J], WorkSheet.Cells[I,J+1]].Select;    ExcelApp.Selection.MergeCells := True;   endfinally  ExcelApp.quit;  ExcelApp := unassigned;end;