关于2种随机抽取数字的请教

Nsp=娜！再来#

求教1：执行VBA，根据N1和N2，求0到9十个数字随机抽取1个数字在每个单元格。
求教2：执行VBA，根据N1，求0到9十个数字随机抽取10个数字在一行的10个单元格中，这10个单元格的数字不能有相同。

谢谢老师们！
关于2种随机抽取数字的请教.zip (148.99 KB, 下载次数: 2)

2019-12-16 16:54 上传

点击文件名下载附件

已解决，答案在9楼，

microyip

1、用redim 定义出指定行列数组
2、循环往数组里填写一个随机数
3、把数组写到表里

microyip

求教2：
1、建立0~9的字典，
2、Redim 0~9的数组
3、循环数组，随机抽取字典内位置。获得关键字的数填到数组里，然后删除字典对应关键字
4、把数组写到表里

excelvlookup

sub aa()
a=sheet1.range("n1"):b=sheet1.range("n2")
redim ar(1 to a,1 to b)
for i=1 to a
br=array(,0,1,2,3,4,5,6,7,8,9)
randomize
for j=1 to b
x=int(rnd()*(10-j))+j
t=br(j):br(j)=br(x):br(x)=t
ar(i,j)=br(j)
next
next
sheet1.resize(a,b)=ar
end sub
求教1的代码，求教2自已改一下就行了

excelvlookup

取不重复随机数用字典就是撞大运，不可取

huang1314wei

excelvlookup 发表于 2019-12-16 21:27
取不重复随机数用字典就是撞大运，不可取

请教一下，你有更好的不用字典取不重复的随机数字的算法吗，如有，可以分享一下

excelvlookup

huang1314wei 发表于 2019-12-16 22:02
请教一下，你有更好的不用字典取不重复的随机数字的算法吗，如有，可以分享一下

4楼就是不用字典取不重复的随机数

microyip

huang1314wei 发表于 2019-12-16 22:02
请教一下，你有更好的不用字典取不重复的随机数字的算法吗，如有，可以分享一下

4楼使用了不断替换用了的数组的方法来解决位置问题，做法是可以的，就是效率超低而已

Nsp=娜！再来#

感谢 xiangbaoan 老师和excelvlookup 老师的帮助，附件如下：
关于2种随机抽取数字的请教.zip (155.6 KB, 下载次数: 2)

2019-12-17 11:37 上传

点击文件名下载附件

代码如下：

1. Sub test1()
   
2. 
   
3. '每个单元格随机出现数字,相当于每个单元格都输入=RANDBETWEEN(0,9)
   
4. '帮助者：xiangbaoan 老师
   
5. 
   
6. Dim h&, w&, i&, j&
   
7. h = [n1]
   
8. w = [n2]
   
9. ReDim ar%(1 To h, 1 To w)
   
10. Randomize
    
11. For i = 1 To h
    
12.     For j = 1 To w
    
13.         ar(i, j) = Int(10 * Rnd)
    
14.     Next
    
15. Next
    
16. [a1].Resize(Rows.Count, w).ClearContents
    
17. [a1].Resize(h, w) = ar
    
18. End Sub
    

复制代码

1. Sub test2()
   
2. 
   
3. '根据行数，抽取0到9十个不同数字，出现在10个单元格中
   
4. '帮助者：xiangbaoan 老师
   
5. 
   
6. Dim h&, n&, i&, j&, c&
   
7. h = [n1]
   
8. ReDim ar(1 To h, 10 - 1)
   
9. For i = 1 To h
   
10.     Randomize
    
11.     c = 0
    
12.     Do While c < 10
    
13.         n = Int(10 * Rnd)
    
14.         ar(i, c) = n
    
15.         For j = 0 To c - 1
    
16.             If ar(i, j) = n Then Exit For
    
17.         Next
    
18.         If j = c Then c = j + 1
    
19.     Loop
    
20. Next
    
21. [a1].Resize(Rows.Count, 10).ClearContents
    
22. [a1].Resize(h, 10) = ar
    
23. End Sub
    

复制代码

1. Sub test3()
   
2. 
   
3. '根据行数和列数，抽取0到9十个不同数字
   
4. '帮助者excelvlookup 老师
   
5. 
   
6. a = Range("n1"): b = Range("n2")
   
7. ReDim ar(1 To a, 1 To b)
   
8. For i = 1 To a
   
9. br = Array(, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
   
10. Randomize
    
11. For j = 1 To b
    
12. x = Int(Rnd() * (10 - j)) + j
    
13. t = br(j): br(j) = br(x): br(x) = t
    
14. ar(i, j) = br(j)
    
15. Next
    
16. Next
    
17. [a1].Resize(a, b) = ar
    
18. End Sub
    

复制代码

excelvlookup

microyip 发表于 2019-12-17 08:35
4楼使用了不断替换用了的数组的方法来解决位置问题，做法是可以的，就是效率超低而已

不是你说的那样，不信你把数组br放到第一层for的上面，不让替换数组。效果也是一样。