大家好！今天分享一个实用的Excel VBA小技巧——如何通过VBA代码随机抽取不重复的名字！无论是抽奖活动还是团队任务分配，这个方法都能帮上大忙哦～🔍💡

假设你有一个包含名字的表格（比如A列），现在需要从中随机抽取几个名字，并且确保这些名字不会重复。首先打开Excel，按 `Alt + F11` 进入VBA编辑器，在工具栏选择插入模块，然后粘贴以下代码：

```vba

Sub 抽取不重复名字()

Dim 名单 As Range, 名字 As String

Dim 随机序号 As Integer, 已选 As Collection

Set 名单 = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)

Set 已选 = New Collection

For i = 1 To 5 ' 设置你需要抽取的数量

Randomize

随机序号 = Int((名单.Rows.Count - 1 + 1) Rnd + 1)

On Error Resume Next

已选.Add 名单.Cells(随机序号, 1).Value, CStr(名单.Cells(随机序号, 1).Value)

On Error GoTo 0

If Err.Number = 0 Then

MsgBox 名单.Cells(随机序号, 1).Value

Else

i = i - 1

End If

Next i

End Sub

```

运行后即可得到随机但不重复的名字列表啦～🎯🎊

记得提前备份数据哦，避免误操作造成损失。希望这篇内容对你有帮助！🌟💬