|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
let
源 = Excel.CurrentWorkbook(),
员工姓名 = Table.PromoteHeaders(源{[Name="员工姓名"]}[Content]),
日期 = Table.PromoteHeaders(源{[Name="日期"]}[Content]),
随机生成值班人员 = Table.Combine(List.Transform(Table.Split(日期,Table.RowCount(员工姓名)),each Table.FromColumns(List.FirstN(Table.ToColumns(_),2)&{List.Accumulate(员工姓名[员工姓名],{},(x,y)=>x&{List.Difference(员工姓名[员工姓名],x){Number.RoundDown(Number.RandomBetween(1,36-List.Count(x))-1,0)}})},Table.ColumnNames(日期))))
in
随机生成值班人员
|
评分
-
1
查看全部评分
-
|