主题：[求助] Excel报表汇总排序

需要添加辅助列处理，比如添加一个【最早日期】，相同工序的，赋值一个对应日期过去，然后根据最早日期分组、排序。

改成比如

For r As Integer = 0 To dt.Rows.Count(true) - 1 '填入数据表的行数
    For c As Integer = 0 To nms.length -1
        'Sheet.Rows(r +4).Height = 40 '设置行的行高
       Select Case c
    Case 0,1,2
    Sheet(r +n1, c).Value = dt.rows(r, true)(nms(c)) '输入数据
    Case Else
    Sheet(r +n1, c+2).Value = dt.rows(r, true)(nms(c)) '输入数据
    End Select
    Next
Next