在Excel中利用VBA生成不重復(fù)的隨機(jī)數(shù)是一項(xiàng)常見的需求，特別適用于需要隨機(jī)分配座位號(hào)、抽獎(jiǎng)等場(chǎng)景。下面將介紹如何通過(guò)VBA代碼實(shí)現(xiàn)這一功能。 步驟1：準(zhǔn)備工作首先，在Excel表格中，假設(shè)我們有一

在Excel中利用VBA生成不重復(fù)的隨機(jī)數(shù)是一項(xiàng)常見的需求，特別適用于需要隨機(jī)分配座位號(hào)、抽獎(jiǎng)等場(chǎng)景。下面將介紹如何通過(guò)VBA代碼實(shí)現(xiàn)這一功能。

步驟1：準(zhǔn)備工作

首先，在Excel表格中，假設(shè)我們有一列A包含了19位同學(xué)的姓名。我們想要為這19名同學(xué)隨機(jī)生成座位號(hào)，讓我們來(lái)看看如何實(shí)現(xiàn)。

步驟2：錄入VBA代碼

1. 首先，選中B2至B20單元格區(qū)域。

2. 同時(shí)按下Alt F11鍵，進(jìn)入VBA編輯界面。

3. 在右側(cè)空白區(qū)域中錄入以下VBA代碼：

```vb

Sub 生成不重復(fù)的隨機(jī)數(shù)()

Dim count As Long, needCount As Long

Dim rn As Range

Dim max, min, unit As Double

Dim bRepeat As Boolean

Dim d As Object

Dim i, v

' 獲取選擇的單元格數(shù)量

count

' 提示用戶不要選擇超過(guò)10000個(gè)單元格

If count > 10000 Then

MsgBox "請(qǐng)不要選擇超過(guò)10000個(gè)單元格！"

Exit Sub

End If

' 輸入隨機(jī)最小數(shù)字

min (prompt:"隨機(jī)最小數(shù)字", Type:1, Default:"0")

If Not IsNumeric(min) Then Exit Sub

' 輸入隨機(jī)最大數(shù)字

max (prompt:"隨機(jī)最大數(shù)字", Type:1, Default:"100")

If Not IsNumeric(max) Then Exit Sub

' 輸入隨機(jī)數(shù)的精確單位

unit (prompt:"隨機(jī)數(shù)的精確單位, 如精確到1、精確到0.2等等", Type:1, Default:"1")

If Not IsNumeric(unit) Then Exit Sub

' 計(jì)算需要生成的隨機(jī)數(shù)個(gè)數(shù)

needCount Int((max - min - unit) / unit)

' 判斷選擇的區(qū)域是否合理

If count > needCount Then

MsgBox "您選擇的區(qū)域太大，無(wú)法生成不重復(fù)的隨機(jī)數(shù)！至多只能選中" needCount "個(gè)單元格！"

Exit Sub

End If

' 創(chuàng)建字典對(duì)象

Set d CreateObject("Scripting.Dictionary")

' 初始化隨機(jī)數(shù)種子

Randomize Timer

' 循環(huán)生成不重復(fù)的隨機(jī)數(shù)

For i 1 To count

Do

v Int(Rnd() * Int((max - min - unit) / unit)) * unit min

Loop While d.exists(v)

' 將隨機(jī)數(shù)賦值給單元格

Selection.Cells(i) v

v, ""

Next i

End Sub

```

步驟3：運(yùn)行代碼生成隨機(jī)數(shù)

1. 在VBA編輯界面中，按下F5鍵執(zhí)行代碼。

2. 彈出輸入框依次輸入隨機(jī)最小數(shù)字、隨機(jī)最大數(shù)字和隨機(jī)數(shù)的精確單位。

3. 點(diǎn)擊確定，即可完成隨機(jī)數(shù)的生成。

通過(guò)以上步驟，你可以輕松利用Excel的VBA功能生成不重復(fù)的隨機(jī)數(shù)，適用于各種場(chǎng)景的數(shù)據(jù)處理和分配任務(wù)。如果需要更多關(guān)于Excel VBA代做的幫助，請(qǐng)搜索“方方格子”獲取更多信息。