icon-rss-large

澳门新葡京手机版app-官方娱乐平台 | Login | SignUp

Subscribe to RSS | Email | 122 Subscribers

急寻求壹个在excel中运用的遂机吧嗒签排前言以次

日期:2018-09-29作者:admin

  壹个取巧、骈杂的方法,用公式就能处理,假定拥有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列的数字,把字体调成白色即却。

  用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效实如次(若图片没拥有拥有触动画,请点壹下图片)