当Excel表格中的数据具有极强的层属关系时，我们可以制作一个层次分明的多级分组来对数据进行分级显示。本文将展示如何创建多级分组，并将分组符号显示在数据上方。

//创建Wordbook实例
Workbook workbook = new Workbook();
//获取第一个工作表
Worksheet sheet = workbook.Worksheets[0];

//写入模拟数据到单元格
sheet.Range["A1"].Value = "项目计划";
sheet.Range["A3"].Value = "筹备";
sheet.Range["A4"].Value = "任务 1";
sheet.Range["A5"].Value = "任务 2";
sheet.Range["A7"].Value = "启动";
sheet.Range["A8"].Value = "任务 1";
sheet.Range["A9"].Value = "任务 2";

//设置IsSummaryRowBelow为false, 即总结行显示在明细行上方
sheet.PageSetup.IsSummaryRowBelow = false;

//选择行进行一级分组
//参数false表示展开当前分组，若要隐藏设置成true
sheet.GroupByRows(2, 9, false);

//选择行进行二级分组
sheet.GroupByRows(4, 5, false);
sheet.GroupByRows(8, 9, false);

//定义一个CellStyle对象，设置单元格内字体颜色及加粗
CellStyle style = workbook.Styles.Add("style");
style.Font.Color = Color.CadetBlue;
style.Font.IsBold = true;

//应用单元格格式
sheet.Range["A1"].CellStyleName = style.Name;           
sheet.Range["A3"].CellStyleName = style.Name;
sheet.Range["A7"].CellStyleName = style.Name;

//设置区域边框样式
sheet.Range["A4:A5"].BorderAround(LineStyleType.Thin);
sheet.Range["A4:A5"].BorderInside(LineStyleType.Thin);      
sheet.Range["A8:A9"].BorderAround(LineStyleType.Thin);
sheet.Range["A8:A9"].BorderInside(LineStyleType.Thin);

//保存文档
workbook.SaveToFile("output.xlsx", ExcelVersion.Version2013);

'创建Wordbook实例
Dim workbook As New Workbook()
'获取第一个工作表
Dim sheet As Worksheet = workbook.Worksheets(0)

'写入模拟数据到单元格
sheet.Range("A1").Value = "项目计划"
sheet.Range("A3").Value = "筹备"
sheet.Range("A4").Value = "任务 1"
sheet.Range("A5").Value = "任务 2"
sheet.Range("A7").Value = "启动"
sheet.Range("A8").Value = "任务 1"
sheet.Range("A9").Value = "任务 2"

'设置IsSummaryRowBelow为false, 即总结行显示在明细行上方
sheet.PageSetup.IsSummaryRowBelow = False

'选择行进行一级分组
'参数false表示展开当前分组，若要隐藏设置成true
sheet.GroupByRows(2, 9, False)

'选择行进行二级分组
sheet.GroupByRows(4, 5, False)
sheet.GroupByRows(8, 9, False)

'定义一个CellStyle对象，设置单元格内字体颜色及加粗
Dim style As CellStyle = workbook.Styles.Add("style")
style.Font.Color = Color.CadetBlue
style.Font.IsBold = True

'应用单元格格式
sheet.Range("A1").CellStyleName = style.Name
sheet.Range("A3").CellStyleName = style.Name
sheet.Range("A7").CellStyleName = style.Name

'设置区域边框样式
sheet.Range("A4:A5").BorderAround(LineStyleType.Thin)
sheet.Range("A4:A5").BorderInside(LineStyleType.Thin)
sheet.Range("A8:A9").BorderAround(LineStyleType.Thin)
sheet.Range("A8:A9").BorderInside(LineStyleType.Thin)

'保存文档
workbook.SaveToFile("output.xlsx", ExcelVersion.Version2013)