请老师调整VBA,把现有多行的数分几次产生随机数，谢谢！

cartel

请老师调整VBA,把现有多行的数分几次产生随机数，谢谢！.zip (23.14 KB, 下载次数: 7)

2024-5-6 14:05 上传

点击文件名下载附件

cartel

老师们好！
我调了很长时间，还是不行，请老师们帮调整下，
谢谢！

ooluckydog

在原程序上微调

gwjkkkkk

Sub TEST4()
    Dim ar, i&
   
    Application.ScreenUpdating = False
   
    ReDim ar(1 To 4, 0)
    For i = 1 To 4
        ar(i, 0) = Join(RndNumCount(0, 9, 9), ",")
    Next i
    [v13].Resize(UBound(ar)) = ar
    Application.ScreenUpdating = True
    Beep
End Sub

Function RndNumCount(MinNum&, MaxNum&, CountNum&)
    Dim i&, n&, ar, xNum&, temp&

    Application.Volatile
    If MaxNum < MinNum Then temp = MaxNum: MaxNum = MinNum: MinNum = temp
    If CountNum > MaxNum - MinNum + 1 Then RndNumCount = "无解": Exit Function
    ReDim ar(1 To CountNum): n = 1
    Randomize
    Do While n <= CountNum
        xNum = Int((MaxNum - MinNum + 1) * Rnd + MinNum)
        ar(n) = xNum
        For i = 1 To n
            If ar(i) = xNum Then Exit For
        Next i
        If i = n Then n = n + 1
    Loop
    RndNumCount = ar
End Function

gwjkkkkk

请参考。。。