Question

急求一个在excel中使用的随机抽签排序程序，要求抽签前所有备抽人员在excel随机中滚动显示

表右侧有添加两个控件，“开始”“结束”，点击“开始”后，excel表开始滚动，点击“结束”，抽签完成，并排序，替代F9，F10

Answer 1

一个取巧、简单的方法，用公式就能解决，假设有10个人
1、A1:A10输入公式=rand()
2、在B1:B10输入公式B1=rank(A1,$A$1:$A$10),下拉到B10

3、在E1:E10输入1-10
4、在F1:F10输入人名
5、在C1输入公式 C1=VLOOKUP(B1,$E$1:$F$10,2,0),下拉到C10
6、启动按住F9，放开停止即可，无需其他操作，如果不想让其他人看到ABEF列的数字，把字体调成白色即可。

Answer 2

用VBA代码（我设置的抽签1-100，不会有重复），如下：Subcq()Range("c3:e3").ClearContentsDimiAsBytei=3T1:DoWhilei<6 IfCells(3,i)=""Then Cells(3,i)=Application.RandBetween(1,100) EndIf i=i+1LoopIfApplication.Or(Cells(3,3)=Cells(3,4),Cells(3,3)=Cells(3,5),Cells(3,4)=Cells(3,5))Then Range("c3:e3").ClearContents GoToT1EndIfEndSub效果如下（若图片没有动画，请点一下图片）