抽取名单

huaxinshao

请教各位大神，需求是：从一年级抽取10人，二年级抽取20人，三年级抽取30人

允许重复

抽取结果列在右侧列里，并把该列顺序随机打乱。

谢谢！谢谢！

leroy

你源数据里面三年级都不到30人，怎么抽取30人，
做样子也得像回事对不对。。。

huaxinshao

leroy 发表于 2019-11-8 10:25
你源数据里面三年级都不到30人，怎么抽取30人，
做样子也得像回事对不对。。。

因为允许重复啊

huaxinshao

顶一顶，继续请教

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, m, n, a, b
  arr = [a3:f10].Value
  n = Array(10, 20, 30)
  ReDim brr(1 To 60, 1 To 1)
  Randomize
  For i = 0 To UBound(n)
    For j = 1 To n(i)
      a = Int(Rnd * UBound(arr, 1)) + 1
      b = Int(2 * Rnd) + 1 + 2 * i
      m = m + 1: brr(m, 1) = arr(a, b)
      a = Int(Rnd * m) + 1
      b = brr(m, 1): brr(m, 1) = brr(a, 1): brr(a, 1) = b
    Next
  Next
  [h2].Resize(m, 1) = brr
End Sub

huaxinshao

一把小刀闯天下 发表于 2019-11-8 11:37
Option Explicit

Sub test()

太感谢了！谢谢！