怎么让抽取过的人员固定

yzyz0812

我有一个excellent表格，用于抽取人员，每次从待选名单中抽取5人到输出表中，同时在待选名单中把这5人的标记变为1。有没有什么办法，让第一次抽取标记变为1的五个人在第二次抽取中仍然为1

hhjjpp

别人写的吧？用的select

Do While Not rst4.EOF
       Sheets("输出表").Cells(i, 2).Value = rst4("姓名")
       Sheets("输出表").Cells(i, 3).Value = rst4("年龄")
       j = 2
       Do While Sheets("待选名单").Cells(j, 1).Value <> ""
          If Sheets("待选名单").Cells(j, 1).Value = rst4("姓名") Then
              Sheets("待选名单").Cells(j, 5) = 1
              Exit Do
          Else
              j = j + 1
          End If
       Loop
       rst4.movenext
       i = i + 1
       Loop

yzyz0812

hhjjpp 发表于 2018-2-22 15:03
别人写的吧？用的select

可能我没有表达清楚，我的意思是让第一次抽取到的人员在第二次不会被抽到。我标记的1是一个辅助标记

hcm19522

E1:I1=IF(COLUMN(A1)>$C6,"","第 "&COLUMN(A1)&" 次抽")

E2:I11{=IF((ROW(A1)>$C$2)+(E$1=""),"",INDEX($A:$A,SMALL(IF((COUNTIF($E$1:$I1,$A$2:$A$26)=0)*(COUNTIF($D2:D2,$A$2:$A$26)=0),ROW(A$2:A$26)),RANDBETWEEN(1,COUNTA($A:$A)-(ROW(A1)-1)*$C$6-COLUMN(A1)))))

A2:A26格式化=COUNTIF(E$2:I$11,A2)