请求家里大神帮忙写一组平均且随机分配值班人员代码

bin9939

请求家里大神帮忙写一组平均且随机分配值班人员代码，要求在每个人员相应单元格显示值班人员姓名。


如有附件，左边为值班日期，及值班安排表，J3-J30为值班人员。
1.工作日为4人，周六日及法定假日为6人值班。

2.每人工作日值班次数大致相等、法定假日值班次数大致相等。
3.值班时间间隔不能相距较近。


跪谢11！

bin9939

没人

bin9939

顶一下  求大神帮手

autolzg

按顺序排就不行吗 随机还要平均 太麻烦了

一把小刀闯天下

'试一下，，，

Option Explicit

Sub test()
  Dim arr, brr, i, j, m, t, cnt
  arr = [j3].CurrentRegion
  ReDim brr(1 To UBound(arr, 1) * 100, 1 To 1)
  Randomize
  For i = 1 To UBound(arr, 1)
    m = Int(Rnd * UBound(arr, 1)) + 1
    t = arr(i, 1): arr(i, 1) = arr(m, 1): arr(m, 1) = t
  Next
  m = 0
  For i = 1 To 100
    For j = 1 To UBound(arr, 1)
      m = m + 1: brr(m, 1) = arr(j, 1)
  Next j, i
  arr = Range("a3:g" & Cells(Rows.Count, "b").End(xlUp).Row)
  m = 0
  For i = 1 To UBound(arr, 1)
    cnt = IIf(Len(arr(i, 2)), 7, 5)
    For j = 4 To cnt
      m = m + 1: arr(i, j) = brr(m, 1)
  Next j, i
  [a3].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub