调用宏语言；
excelapp := createoleobject('EXCEL.application');
ExBook := excelapp.WorkBooks.Add;
Sheet := ExBook.WorkSheets.Item[1];
sheet.rows['2:9'].Interior.ColorIndex := 36;
sheet.rows['2:9'].rows.group;
excelapp.visible := true;
这样可以选中行。然后对行的颜色进行填充，然后分组