随机筛选A列数据

dreamer徐

A列的数据能否随机在B列中筛选出10个？能否给个VBA的方案？谢谢！

microyip

随机函数生成一个随机数，然后读取对应随机数的行即可，循环10次

dreamer徐

microyip 发表于 2018-7-21 13:41
随机函数生成一个随机数，然后读取对应随机数的行即可，循环10次

如果A列中全是中文呢？能否来个附件？谢谢！

chaohuahch

代码如下，供测试。

1. Sub test()
   
2. Dim arr, brr(), i%, nRow%, m%, j%
   
3. nRow = Range("a" & Rows.Count).End(3).Row
   
4. arr = Range("a1").CurrentRegion
   
5. m = 10
   
6. ReDim brr(1 To m)
   
7. For i = 1 To m
   
8.    j = Application.WorksheetFunction.RandBetween(1, nRow)
   
9.    brr(i) = arr(j, 1)
   
10. Next i
    
11. Range("b1").Resize(m).ClearContents
    
12. Range("b1").Resize(m) = Application.WorksheetFunction.Transpose(brr)
    
13. 
    
14. End Sub
    

复制代码

不知道为什么

dreamer徐 发表于 2018-7-21 13:44
如果A列中全是中文呢？能否来个附件？谢谢！

如图

不知道为什么

dreamer徐 发表于 2018-7-21 13:44
如果A列中全是中文呢？能否来个附件？谢谢！

代码供参考

dreamer徐

chaohuahch 发表于 2018-7-21 13:44
代码如下，供测试。

能否在旁边增加一个按键？不然每次都要在后台运行代码，谢谢！

chaohuahch

dreamer徐 发表于 2018-7-21 13:56
能否在旁边增加一个按键？不然每次都要在后台运行代码，谢谢！

详见附件。如果觉得可以，记得送花花。

凌空一羽

1. Sub lkyy()
   
2. Const a = 10
   
3. myr = Range("a1000").End(3).Row
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Do Until d.Count = a
   
6.     d(Int(Rnd() * myr) + 1) = ""
   
7. Loop
   
8. ReDim ar(1 To a, 1 To 1)
   
9. For Each Key In d.keys
   
10.     n = n + 1
    
11.     ar(n, 1) = Cells(Key, 1)
    
12. Next
    
13. Range("b1").Resize(a, 1) = ar
    
14. End Sub

复制代码

dreamer徐

chaohuahch 发表于 2018-7-21 14:03
详见附件。如果觉得可以，记得送花花。

A列的内容全都被我改成了中文，而且被隐藏了，为什么有的时候运行程序是正常的有时候会报错？（附件传不上）