请老师调整现有VBA，生成随机数，使其减少的数不能重复，谢谢！

cartel

请老师调整现有VBA，生成随机数，使其减少的数不能重复，谢谢！.zip (20.93 KB, 下载次数: 13)

2024-5-11 19:09 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub test2()
    Dim ar, br, cr, i&, j&
   
    Application.ScreenUpdating = False
    ar = Range("P1", Cells(Rows.Count, "Q").End(xlUp)).Value
    ReDim br(1 To UBound(ar), 1)
   
    For i = 1 To UBound(ar)
        cr = Split(ar(i, 1), ",")
        arrGetRnd1 cr
        For j = 0 To ar(i, 2) - 1
            br(i, 0) = br(i, 0) & "," & cr(j)
        Next j
        br(i, 0) = Mid(br(i, 0), 2)
        For j = ar(i, 2) To UBound(cr)
            br(i, 1) = br(i, 1) & "," & cr(j)
        Next j
        br(i, 1) = Mid(br(i, 1), 2)
    Next i
   
    [R1].Resize(UBound(br), 2) = br
    Application.ScreenUpdating = True
    Beep
End Sub
Function arrGetRnd1(ByRef ar)
    Dim xNum&, i&, n&, vTemp
    Randomize
    n = UBound(ar)
    For i = 0 To UBound(ar)
        xNum = Int((n - i + 1) * Rnd() + i)
        vTemp = ar(xNum): ar(xNum) = ar(i): ar(i) = vTemp
    Next
End Function

gwjkkkkk

请参考。。。

cartel

gwjkkkkk 发表于 2024-5-11 19:23
请参考。。。

gwjkkkkk老师好！
我要的结果，S列行与行是一个数，是不能重复
如果S行是两个数，这样是可以有重复的
请老师再帮看下，谢谢！

cartel

ooluckydog