在Excel中，你可以使用以下步骤来创建一个简单的抽签程序，确保22人中的21次抽签结果不重复：
1. **设置数据列**：
在Excel中，首先在第一列中列出所有人的名字或标识，从A1开始至A22（这里假设总共有22人）。
2. **插入辅助列**：
在第二列（B列）中，将以下公式复制到每个单元格中，以生成一个随机的索引值：
```excel
=RANDBETWEEN(1, 22)
```
这个公式的意思是，从1到22（包括1和22）中随机生成一个整数。
3. **排序**：
在B列中按公式的结果进行降序排序。选中B列，然后点击“数据”选项卡中的“排序”按钮。在弹出的“排序”对话框中，选择“按列”作为排序依据，然后选择B列作为排序依据，并选择“降序”排序。排序后，B列中的数字将从小到大排列。
4. **获取排序后的结果**：
在C列中，从C1开始，输入以下公式，并将该公式向下拖动到C22：
```excel
=INDEX(A:A, B1)
```
这个公式将会根据B列中的随机索引值在A列中选取相应的名字。
5. **结果提取**：
由于你只需要21个不重复的结果，你可以选择C列中前21行的名字作为抽签的结果。
请确保你在使用这些公式后锁定原始的数据范围（比如，如果有人名字被选中，不要编辑A列），以避免影响随机结果。
注意：每次你打开Excel时，RANDBETWEEN函数生成的结果都会改变，如果你需要重复使用该结果集，可以通过复制以下VBA宏在需要重复生成同一序列的时候来调用，在VBA编辑器中运行：
```vba
Sub ResetRandom()
Application.Calculation = xlCalculationManual
Dim i As Integer
For i = 1 To 22
Cells(i, 2).Value = Application.WorksheetFunction.RANDBETWEEN(1, 22)
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
```
使用这个宏可以保证每次生成相同的随机序列，以便于重复执行和验证。
「点击下面查看原网页 领取您的八字精批报告☟☟☟☟☟☟」