按要求随机抽取人员

比翼双飞880717

请大家移步到13楼，是新的一个问题，谢谢！

shiruiqiang

名单加入字典。for循环i=1 to 变量。if i=1，then 变量=24，else，变量=20。字典随机抽取，移除字典

LIUZHU

JSA做的，是这个效果吗

LIUZHU

发不上去，再发一次

hcm19522

D2 下拉 右拉{=IF(ROW(A1)>D$1,"",INDEX($A:$A,SMALL(IF((COUNTIF($C$2:C$21,$A$2:$A$21)=0)*(COUNTIF(D$1:D1,$A$2:$A$21)=0),ROW($2:$21)),RANDBETWEEN(1,21-ROW(A1)-SUM($C$1:C$1)))))

shiruiqiang

A刘志勇

这个用字典好写

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, br, cr, i&, j&, n&
   
    br = Application.Transpose([A2:A85].Value)
    Call arrGetRnd1(br)
    cr = Array(24, 20, 20, 20)
    ReDim ar(1 To 24, 1 To 4)
    For j = 0 To UBound(cr)
        For i = 1 To cr(j)
            n = n + 1
            ar(i, j + 1) = br(n)
        Next i
    Next j
   
    [D1].CurrentRegion.Clear
    [D2].Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub


Function arrGetRnd1(ByRef ar)
    Dim xNum&, i&, n&, vTemp
    Randomize
    n = UBound(ar)
    For i = 1 To UBound(ar)
        xNum = Int((n - i + 1) * Rnd() + i)
        vTemp = ar(xNum): ar(xNum) = ar(i): ar(i) = vTemp
    Next
End Function

gwjkkkkk

数组法，参与一下。。。

A刘志勇

你去试试吧，没有问题，可以给我红花！