要求：PR Code唯一，同一个月的同一个人的放在一起(例如 2019-10和2019-11 不放在一起，2019-10和2019-10放在一起)，
开始的时候写(错误的写法)：
1.read range(忽略)
2.For each(Item 的类型是System.String[])
dt.Rows.Cast(Of System.Data.DataRow).
Where(Function(r) r("Note").ToString = "ok to submit").
Select(Function(r) {r("Staff name").ToString, Left(r("Date").ToString, 7)}).
Distinct()
Invoke Method:
因为数组不能被Distinct, {r("Staff name").ToString, Left(r("Date").ToString, 7)} , 所以需要用另外一种写法
正确的写法：
dt.Rows.Cast(Of System.Data.DataRow).
Where(Function(r) r("Note").ToString = "ok to submit").
Select(Function(r) r("Staff name").ToString + "|" + Left(r("Date").ToString, 7)).
Distinct()
名字加日期去筛选,Item的类型改为String
Invoke Method 的参数改为 item.Split({"|"}, StringSplitOptions.None)：
这里item.Split({"|"}, StringSplitOptions.None) 返回的数组
groups的类型：
加入到GROUP后就是不重复的人名加日期了