excel怎么随机抽取名单

「☞点击立即领取您的八字精批报告」

「☞运势顺逆，解锁您的2026马年运势！」

「☞八字测你终生运，财富事业福寿知！」

「☞八字合婚，提前了解你的婚姻走向」

在Excel中随机抽取名单，你可以使用以下几种方法：

「☞点击立即领取您的八字精批报告」

「☞运势顺逆，解锁您的2026马年运势！」

「☞八字看事业，财富伴终生，一查知！」

「☞八字合婚，提前了解你的婚姻走向」

### 方法一：使用RAND函数

1. 选择一个单元格。

2. 在单元格中输入以下公式：`=RAND()`

3. 按下Enter键，该单元格将显示一个0到1之间的随机数。

4. 将这个随机数公式复制到其他单元格中，以生成一列随机数。

5. 在另一列中，将你的名单输入到一个单元格中，并拖动填充柄填充到整列。

6. 根据随机数的大小，选择排序和筛选功能，按照随机数进行排序，这样你就可以得到随机抽取的名单。

### 方法二：使用“数据”标签页中的“随机”

1. 选中你想要随机抽取名单的单元格范围。

2. 点击Excel菜单中的“数据”标签页。

3. 在“数据工具”组中，选择“随机”。

4. 在弹出的对话框中，输入你想要抽取的名单数量。

5. 点击“确定”，Excel将随机抽取指定数量的名单。

### 方法三：使用VBA

如果你更习惯使用VBA，可以按照以下步骤操作：

1. 打开Excel，然后按 `Alt + F11` 打开VBA编辑器。

2. 在VBA编辑器中，右击工作簿名称，选择“插入” > “模块”。

3. 在打开的模块窗口中，粘贴以下代码：

```vba

Sub 随机抽取名单()

Dim rng As Range

Dim count As Integer

count = 5 ' 设置你想要抽取的名单数量

' 定义要抽取名单的单元格范围

Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A10") ' 根据实际情况修改范围

' 随机抽取名单

With rng.Sort

.SortFields.Clear

.SortFields.Add Key:=rng, Order:=xlDescending

.SetRange rng

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

' 选取抽取的名单

Selection.Copy

' 粘贴到新区域

ThisWorkbook.Sheets("Sheet1").Range("B1:B" & count).PasteSpecial Paste:=xlPasteValues

' 清除粘贴的格式

ThisWorkbook.Sheets("Sheet1").Range("B1:B" & count).PasteSpecial Paste:=xlPasteFormats

' 清除剪贴板

Application.CutCopyMode = False

End Sub

```

4. 保存并关闭VBA编辑器。

5. 在Excel中，按 `Alt + F8`，选择“随机抽取名单”宏，然后点击“运行”。

使用以上任一方法，你都可以在Excel中随机抽取名单。

「点击下面查看原网页 领取您的八字精批报告☟☟☟☟☟☟」