从10个数字中随机抽取5个数字

hbooy

从10个数字中随机抽取5个数字（不重复），这个应该是怎么操作的呢？公式如何列出？

bbm000000

a列数字不重复

xlllw203

=--RIGHT(SMALL(RANDBETWEEN(ROW($1:$10),50)/1%%%+ROW($1:$10),ROW($1:$5)),2)
选1列5个单元格，输入区域数组
1-10里取5个，如果是其他的数自己替换红色部分，数很大right就多取几位

hbooy

bbm000000 发表于 2023-8-7 09:56
a列数字不重复

我太笨了，还是看不明白。

hbooy

xlllw203 发表于 2023-8-7 10:00
=--RIGHT(SMALL(RANDBETWEEN(ROW($1:$10),50)/1%%%+ROW($1:$10),ROW($1:$5)),2)
选1列5个单元格，输入区域 ...

这个也是看不明白呢？能做一个表格给我看看吗

leepoison

Sub GenerateRandomNumbers()
    Dim Numbers(1 To 10) As Integer
    Dim RandomIndex As Integer
    Dim Temp As Integer
    Dim LastPosition As Integer
    Dim i As Integer

    ' 初始化数组
    For i = 1 To 10
        Numbers(i) = i
    Next i

    LastPosition = 10

    ' 使用洗牌算法打乱数组
    For i = 1 To 5
        RandomIndex = Int(Rnd() * LastPosition) + 1
        ' 将随机选中的数字放到 A 列
        Cells(i, 1).Value = Numbers(RandomIndex)

        ' 交换当前随机选中的数字与数组的最后一个数字
        Temp = Numbers(RandomIndex)
        Numbers(RandomIndex) = Numbers(LastPosition)
        Numbers(LastPosition) = Temp

        ' 减小可选数字的范围
        LastPosition = LastPosition - 1
    Next i
End Sub

leepoison

xlllw203

hbooy 发表于 2023-8-7 10:19
这个也是看不明白呢？能做一个表格给我看看吗

我传不了附件。。
这样，你鼠标框选a1:a5一共5个单元格，然后把公式复制进去，按CTRL+SHIFT+ENTER，三键一起按，结果就出来了

橒♂蝣

用INDEX+SORTBY+RANDARRAY可以实现

comeet

=TAKE(SORTBY(ROW(1:10),RANDARRAY(10)),5)