作者:乔山办公网日期:
返回目录:excel表格制作
假设数据在a列(QQ号)
在空白单元格输入
=INDEX(A:A,INT(RAND()*100),1)
就会随机抽取一个qq号了
向下复拖就会出现很多
最好A:A范围明确指定 如A1:A100
上面制公式抽取的可能有重复的
你可以用代码解决
QQ号数据在A列
在宏填写zhidao代码如下:
Sub seldata()
Dim r As Long
r = Range("a65536").End(xlUp).Row
Randomize
For j = 1 To 100
Randomize
i = Int((r - 1 + 1) * Rnd + 1)
Cells(j, 2).Value = Cells(i, 1).Value
Next j
End Sub
运行宏seldata
在B列中可得到随即且不重复的100个数值。
个数你可以自定义,在代码里面
先随机一组数字,数字大小就是你要随机的范围选好列的字母 ,等于写好一整个单元格,为文本格式再用indirect转成公式。
你的“M行N列数据”具zd体在哪?网友才方便帮你。
如用公式设置,需要数据的具体回位置的。
=OFFSET($A$1,RAND()*10,RAND()*10)
回车并向下和向右填充。
(就是引答用A1起的10行*10列当中的数据了)
如果需百要确保随机选取的10个参考数值不重复,建议进行如下操作。
步骤1:在度B1:B100单元格输入=RAND() 按Ctrl+Enter组合问键结束;
步骤2:在C1:C10单元格输入以下公式,然后向下填充公式
=INDEX(A:A,MATCH(LARGE(B:B,ROW(A1)),B:B,0))
这样得到答的数据不会重复,且每按一下版F9键,会重复随机权一次。
步骤3:根据需要,隐藏B列。