求教！如何在excel中进行随机抽取？
发布网友
发布时间：2022-04-20 17:54
共1个回答
热心网友
时间：2023-11-10 12:04
A1输入序号,B1输入数据
A2输入1,A3输入2,选中A2与A3,下拉复制到A460,生成1到459的序号,然后把数据填到B2到B460.
表2:
A1输入抽样序号,B1输入所选序号的内容.
录制一个宏,宏名叫随机生成.把宏的内容用以下代码取代:
sub
随机生成()
Dim
rng
As
Range,
rng1
As
Range
Set
rng
=
Range("A2:A41")
rng.ClearContents
Randomize
For
Each
rng1
In
rng
Do
rng1
=
Int(1
+
Rnd
*
459)
Loop
Until
Application.WorksheetFunction.CountIf(rng,
rng1)
=
1
Next
End
sub
说明:以上宏是生成一个1~459的不重复数的.然后在表2的C1入画一个文本框,输入抽样.选中此文本框,右键--指定宏,选刚建好的随机生成宏.确定.
在B2输入:
=VLOOKUP(A2,表1!A:B,2,FALSE)
下拉公式到B460
说明:以上做好后.只要每点击一次抽样文本框,就会随机生成一个新的抽样表.
