gwjkkkkk老师，请看下，谢谢

gwjkkkkk

请参考 。。。

准提部林

拆分..隨機取指定個數//
看圖//

准提部林

拆分..隨機取指定個數//
代碼//

Sub Test_A1() '准提部林
Dim Arr, T$, Tr, V&, R&, C%, i&, j%
Arr = Range([c1], [b65536].End(xlUp)(2))
Randomize
For i = 1 To UBound(Arr) - 1
    Tr = Split(Arr(i, 1), ","): V = Val(Arr(i, 2))
    For j = UBound(Tr) To 0 Step -1
        C = C + 1: If C > V Then Exit For
        R = Int(Rnd * (j + 1))
        T = T & "," & Tr(R)
        Tr(R) = Tr(j)
    Next j
    Arr(i, 1) = "'" & Mid(T, 2): T = "": C = 0
Next i
[d1].Resize(UBound(Arr) - 1) = Arr
End Sub