有一列数据100个 从中随机抽取10个不重复的

gilligan

gs960914 发表于 2014-4-3 08:02
想做个随机抽题的考试

考试1.zip (30.53 KB, 下载次数: 85)

2014-4-3 17:36 上传

点击文件名下载附件

treenewbee

可以利用工资表抽取：

1. Sub Getn()
   
2.     Dim n&, arr, brr
   
3.     arr = [a1].CurrentRegion
   
4.     n = 10
   
5.     [b1].Resize(UBound(arr)) = "=rand()"
   
6.     [a:b].Sort [b1]
   
7.     brr = WorksheetFunction.Transpose([a1].Resize(n))
   
8.     [a1].Resize(UBound(arr)) = arr
   
9.     [b:b] = ""
   
10.     MsgBox Join(brr, ",")
    
11. End Sub
    

复制代码

PM男爵

香川群子 发表于 2014-3-28 14:41
从A列中提取任意10个不重复数据的代码：

使用了【经典数组洗牌算法】楼上各位一定要改正自己的习惯，不 ...

请问如何不让A1数据到数组arr

zhuliang80s

香川群子 发表于 2014-3-28 14:41
从A列中提取任意10个不重复数据的代码：

使用了【经典数组洗牌算法】楼上各位一定要改正自己的习惯，不 ...

您好，请问一下，使用这个代码如何实现随机抽取数所在的单元格的整行数据也跟着变动啊？怎样修改代码实现上述功能？

csunh502

香川群子 发表于 2014-3-28 14:41
从A列中提取任意10个不重复数据的代码：

使用了【经典数组洗牌算法】楼上各位一定要改正自己的习惯，不 ...

为什么我把你的代码改成这样得到数据都是一样的呢?

Sub GetRnd1()
   
    Dim arr(1 To 10) As Variant
   
    arr(1) = 1
    arr(2) = 2
    arr(3) = 3
    arr(4) = 4
    arr(5) = 5
    arr(6) = 6
    arr(7) = 7
    arr(8) = 8
    arr(9) = 9
    arr(10) = 10
   
    m = UBound(arr)
    n = 5
    If n > m Then MsgBox "n>m Err!": Exit Sub
    Randomize                                                        
    For i = 1 To n                                                
        r = Int(Rnd * (m - i + 1)) + i                              
        t = arr(r): arr(r) = arr(i): arr(i) = t
                                                                    
    Next
   [b1].Resize(n) = t                              
End Sub

香川群子

csunh502 发表于 2017-8-31 11:15
为什么我把你的代码改成这样得到数据都是一样的呢?

Sub GetRnd1()

[b1].Resize(n) = t  是什么意思你知道吗？

excelvlookup

还是我来把算法讲透吧
核心语句
For i = 1 To n
         r = Int(Rnd * (n - i + 1)) + i
         t = arr(r, 1): arr(r, 1) = arr(i, 1): arr(i, 1) = t
     Next
这个： t = arr(r, 1): arr(r, 1) = arr(i, 1): arr(i, 1) = t，把 i 项的数写到 r 项，把 r 项的数写到 i 项
这个： r = Int(Rnd * (n - i + 1)) + i，r 永远大于i,所以随机是不可能取到 i 项及 i 项前面的数
这个：For i = 1 To n， i 项及 i 项前面的数是已经随机取到了的数
总之，把取好的数放在i 项以前，从i 项以后去随机取数，想一想会重复吗

epigenetics

香川群子 发表于 2014-3-28 14:41
从A列中提取任意10个不重复数据的代码：

使用了【经典数组洗牌算法】楼上各位一定要改正自己的习惯，不 ...

女神！神算法！

beyond1314

都是很好的学习资料，收藏了。

大oo狼

excelvlookup 发表于 2017-9-1 15:59
还是我来把算法讲透吧
核心语句
For i = 1 To n

谢谢，准备学习VBA，碰到的第一个实际问题就是随机抽取，谢谢你对这段代码的解释。