请教个问题。我现在有个EXCEL表格,有600行数据,我想实现随机抓取一定行数(20,30……)再存放起来。抓取次数也可以自由选择(500次,600次,1000次……)。有没有什么好的方法能实现。求大神帮帮忙。
网上找的一段VBA代码来进行随机不重复地提取。它能实现从某列(本例为A1:A600)中随机不重复地提取100个数据,将其放到指定区域(本例为C1:C100)中,但是只能实现随机抽取1次,可是VB我完全看不懂啊,不知道怎么改。
Sub RandomSelect()
Dim TempArr, TheList(1 To 600, 1 To 1) As Variant
TempArr = Range("a1:a600")
For i = 600 To 1 Step -1
j = Int(Rnd * i) + 1
TheList(i, 1) = TempArr(j, 1)
TempArr(j, 1) = TempArr(i, 1)
Next i
Range("l1:l50") = TheList
End Sub
![](https://profile-avatar.csdnimg.cn/482cd9abf6d5430aadc7edf372fc2543_gosnail.jpg!4)
如何EXCEL中按行随机抓取数据并保存
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
2条回答
悬赏问题
- ¥15 如何在scanpy上做差异基因和通路富集?
- ¥20 关于#硬件工程#的问题,请各位专家解答!
- ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错,维度不匹配
- ¥15 Power query添加列问题
- ¥50 Kubernetes&Fission&Eleasticsearch
- ¥15 報錯:Person is not mapped,如何解決?
- ¥15 c++头文件不能识别CDialog