日常工作中，我们常常需要从名单中随机抽取几位同事参与活动或完成任务，但手动挑选不仅耗时还容易出错。这时，VBA代码就能大显身手啦！🎉今天分享的这个小技巧，可以轻松实现随机抽取人名且保证不重复哦！🌟

首先打开Excel，准备好你的名单列表。接着按下`Alt + F11`进入VBA编辑器，粘贴以下代码：

```vba

Sub RandomSelect()

Dim names As Variant, selected As Collection

Set selected = New Collection

names = Array("张三", "李四", "王五", "赵六") ' 替换为你的名单

Randomize

Do While selected.Count < 2 ' 抽取人数可自行调整

Dim pick As Integer

pick = Int((UBound(names) + 1) Rnd)

On Error Resume Next

selected.Add names(pick), CStr(names(pick))

On Error GoTo 0

Loop

MsgBox Join(selected, ", ")

End Sub

```

运行后，你会看到一个消息框弹出随机抽取的结果，简单高效吧？✨快试试看吧！

VBA学习 随机抽取 工作效率提速