请教各位大神如何用VBA随机几个数值

chxw68

详见附件。

思维百宝箱

liulang0808 发表于 2023-4-20 16:42
建议楼主结合附件描述下具体需求：
原始数据是怎么来的，要怎么处理，模拟出具体结果

有其他人弄好了,谢谢你

思维百宝箱

chxw68 发表于 2023-4-20 19:13
详见附件。

真心感谢!你真的太棒了~

吴中泉

思维百宝箱 发表于 2023-4-20 19:28
真心感谢!你真的太棒了~

这是前段时间应一位坛友要求写的，希望对你有帮助。

看图：

思维百宝箱

chxw68 发表于 2023-4-20 19:13
详见附件。

大神，你真棒！但是有个小问题，就是23行排列出来的数字里，少了最大的那一个数，每次随机出来都少了最大的那个值，能说明一下是哪里出了点小差错吗

liulang0808

Sub test()
    Dim arr(1 To 5, 1 To 4)
    Set d = CreateObject("scripting.dictionary")
    For j = 1 To 5
        For i = 1 To 4
            arr(j, i) = WorksheetFunction.RandBetween(1, UBound(arr) * UBound(arr, 2))
            d(arr(j, i)) = ""
        Next i
    Next j
    Rows(23).ClearContents
    For j = 1 To d.Count
        Cells(23, j) = WorksheetFunction.Small(d.keys, j)
    Next j
    [c4].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

liulang0808

随机数字.zip (16.1 KB, 下载次数: 3)

2023-4-21 07:17 上传

点击文件名下载附件

不确定猜的对不对

chxw68

修改好了。