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

用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