随机抽取

Abc1234569

我有一个表格，sheet2里面A列是数据，想在A列随机抽取10个数据，在B列显示，但是会出现有时抽出来的有空白的情况，比如说抽取一次，有9个数据，还有一个空白的，这个要如何解决。随机抽取可以有重复的数据。

大灰狼1976

1. Sub test()
   
2. Dim r&, n&, arr(9, 0), i&
   
3. r = Cells(Rows.Count, 1).End(3).Row
   
4. For i = 0 To 9
   
5.   Do
   
6.     n = -Int(-Rnd() * r)
   
7.   Loop Until Cells(n, 1) <> ""
   
8.   arr(i, 0) = Cells(n, 1)
   
9. Next i
   
10. [b1].Resize(10) = arr
    
11. End Sub

复制代码

Abc1234569

大灰狼1976 发表于 2020-3-14 11:10

太感谢了，可以实现了。

大灰狼1976

不用谢，欢迎新朋友！