excel宏，随机抽取数字 ub 查岗时间()Dim St1 As WorksheetDim Arr1，A1%Dim QsDate As Date，JzDate As Date，TianN%，TianTotal%Dim Brr，R%Dim Crr()，RndK()，RndD()Dim i%，j%，k%，n%'-Set St1=Sheets(\"Sheet1\")'查岗时间A1=St1.Range(\"N\"&Rows.Count).End(xlUp).RowArr1=St1.Range(\"N3：O\"&A1)'起始日期和截止日期QsDate=St1.Range(\"G3\")JzDate=St1.Range(\"G4\")TianTotal=Day(JzDate)-Day(QsDate)+1TianN=7'-'日期数组R=St1.Range(\"B\"&Rows.Count).End(xlUp).RowBrr=St1.Range(\"B3：D\"&R)'-'随机查岗时间ReDim Crr(1 To UBound(Brr))ReDim RndK(1 To TianN)ReDim RndD(1 To 2)'-For i=1 To UBound(Crr)Step TianNn=0For j=1 To UBound(RndK)RndK(j)=RndNextFor j=1 To UBound(RndK)n=n+1If n>；=5 Then Exit ForFor k=1 To UBound(RndK)If RndK(k)=Application.Large(RndK，n)ThenRndD(1)=RndRndD(2)=RndIf RndD(1)>；RndD(2)ThenCrr(k+i-1)=Arr1(1，2)ElseCrr(k+i-1)=Arr1(2，2)End IfExit ForEnd IfNextNextNext'-St1.Range(\"C\"&3).Resize(UBound(Crr)，1)=Application.WorksheetFunction.Transpose(Crr)'-End Sub
如何用EXCEL实现随机抽取？
Excel如何实现随机抽取
excel如何实现随机抽取且不重复
怎么用excel实现随机抽取？部门抽奖用~~~ 我看这个挺好用的.
excel如何实现随机抽取且不重复，最近很多朋友咨询关于excel如何实现随机抽取且不重复的问题，今天的这篇经验就来聊一聊这个话题，希望可以帮助到有需要的朋友。
如何用EXCEL宏抽取不重复随机数并显示？ 抽取1-180中18个非重复随机数，代码如下：Sub m()For i=1 To 18kkk：Randomizek=Int(Rnd*180)+1If Application.CountIf(Range(\"M2：M19\")，k)=0 ThenCells(i+1，\"M\")=kElse：GoTo kkkEnd IfNext iEnd Sub
