怎样用excel随机抽取人名?
一共有198个数据,每次抽取68个。分三次抽取,而且每次抽取的数据不能重复。该怎么抽取啊?谢谢啦!...
一共有198个数据,每次抽取68个。分三次抽取,而且每次抽取的数据不能重复。该怎么抽取啊?谢谢啦!
展开
7个回答
2015-10-26 · 知道合伙人软件行家
关注
展开全部
将人名存放于1个数组(例如20个人名),然后随机产生一个1~20的随机数,根据数组取得这个人名就完成了。接下来举例来做一个实例说明。
第一步:创建一个20个人名的清单,存于A1~B21。如图:
第二步:编写一个宏。代码如下:
Sub 随机人名()
Dim mYname(1 To 20, 1 To 2)
Dim I, J, K As Integer
'读取人名
I = 2
Do While Cells(I, 1) > 0
mYname(I - 1, 1) = Cells(I, 1)
mYname(I - 1, 2) = Cells(I, 2)
I = I + 1
Loop
Randomize
J = Int((Rnd * 20) + 1)
For K = 1 To 20
If J = mYname(K, 1) Then
Exit For
End If
Next K
MsgBox mYname(K, 2)
End Sub
第三步:插入一个按钮,将上述宏附加给按钮。
第四步:修改按钮名称为“随机人名”。这样只要点击按钮,就会显示一个随机的人名。如图:
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
198分个数据为一列,第二列次数为1,生成后取68个,或修改程序一步到位。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
全部名字放在一列(假设是A列)
在B列加一个辅助列,在B1中输入或复制粘贴此公式
=RAND()
(说明:这是随机函数)
下拉填充或双击B1右侧的填充柄
选中B列任一非空单元格 单击或多次单击常用工具栏上的升序排序或降序排序图标
在C1中输入或复制粘贴此公式
=INDIRECT("A"&(COLUMN(A:A)-1)*68+ROW($A1))
右拉填充到E列
选中C1:E1,下拉填充到第68行
在B列加一个辅助列,在B1中输入或复制粘贴此公式
=RAND()
(说明:这是随机函数)
下拉填充或双击B1右侧的填充柄
选中B列任一非空单元格 单击或多次单击常用工具栏上的升序排序或降序排序图标
在C1中输入或复制粘贴此公式
=INDIRECT("A"&(COLUMN(A:A)-1)*68+ROW($A1))
右拉填充到E列
选中C1:E1,下拉填充到第68行
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询