有时候我们在做统计的时候,可能会遇到提取样本的需求,提取样本最重要的当然是随机性,今天我就来讲一下该如何用VBA实现随机提取一些数据。
例子:从Sheet1随机抽取5名人员,名单填入Sheet2
例子想到随机,那么我们一般就要用到Rnd函数,首先我们看一下官网上Rnd函数的介绍
官网Rnd函数介绍一般来说,我们不用参数,那么Rnd返回值就是 [0,1)
那么我们要返回一个A到B之间的整数的话,就可以这样写:
Int(Rnd * (B - A +1) + A)
随机函数就介绍到这里,接下来,就要开始抽取了,由于不能抽到相同的数据,那么就要排除掉已经抽到的,我想到了用集合Collection,当然,字典Dictionary也可以。
首先,将Sheet1的数据加入集合
Dim con As New Collection
With Sheet1
For i = 1 To .[A65536].End(xlUp).Row
con.Add .Cells(i, 1).Value
End With
然后,可以定义一个数组,用来存放样本
Dim arr(1 to 5)
接下来,开始随机抽取For i = 1 To NUM
Randomize
rndIndex = Int(Rnd() * con.Count + 1)
arr(i) = con(rndIndex)
con.Remove rndIndex
Next
最后,将数据写入Sheet2即可
Sheet2.[A:A].ClearContents
Sheet2.[A1].Resize(NUM, 1) = Application.Transpose(arr)
效果如图: 最终效果 代码如图: 代码全貌我将样本数量定义为常量NUM,这样做可以方便后期更改样本数量,只要修改一处即可。
其实还有一个随机抽取数据的方法,我们下期再讲。
。。。