在 Excel 中，有時(shí)我們需要對(duì)表格中的數(shù)據(jù)進(jìn)行隨機(jī)排序，以達(dá)到分組或者其他目的。本文將介紹如何利用 VBA 編程語(yǔ)言實(shí)現(xiàn) Excel 表格數(shù)據(jù)的隨機(jī)排序功能。步驟一：選中姓名數(shù)據(jù)單元格區(qū)域首先，在

在 Excel 中，有時(shí)我們需要對(duì)表格中的數(shù)據(jù)進(jìn)行隨機(jī)排序，以達(dá)到分組或者其他目的。本文將介紹如何利用 VBA 編程語(yǔ)言實(shí)現(xiàn) Excel 表格數(shù)據(jù)的隨機(jī)排序功能。

步驟一：選中姓名數(shù)據(jù)單元格區(qū)域

首先，在 Excel 表格中，我們需要選中要進(jìn)行隨機(jī)排序的數(shù)據(jù)區(qū)域。在本例中，我們選中了某個(gè)班級(jí)的姓名數(shù)據(jù)單元格區(qū)域。

步驟二：進(jìn)入 VBA 編輯器

按下 "Alt F11" 快捷鍵，可以進(jìn)入 VBA 編輯器界面。

步驟三：錄入 VBA 代碼

在 VBA 編輯器中，找到所需操作的工作表（例如 "Sheet1"），然后輸入以下 VBA 代碼：

```

Sub 選區(qū)數(shù)據(jù)打亂順序()

Dim ar, i, ii

Dim tmp, tr, tc

If > 1 Then Exit Sub

If > Then

MsgBox "您選擇的區(qū)域過大！"

Exit Sub

End If

ar Selection

Randomize Timer

For i 1 To UBound(ar)

For ii 1 To UBound(ar, 2)

tr Int(Rnd * UBound(ar) 1)

tc Int(Rnd * UBound(ar, 2) 1)

tmp ar(tr, tc)

ar(tr, tc) ar(i, ii)

ar(i, ii) tmp

Next

Next

Selection ar

End Sub

```

步驟四：運(yùn)行 VBA 代碼

點(diǎn)擊菜單欄上的 "運(yùn)行"，然后選擇 "運(yùn)行子程序/用戶窗口"，即可完成數(shù)據(jù)隨機(jī)排序的操作。

效果展示

完成以上步驟后，你會(huì)發(fā)現(xiàn)選中的數(shù)據(jù)區(qū)域已經(jīng)按照隨機(jī)順序進(jìn)行了排序。

最后，我們分享了本文使用的 VBA 代碼，如果有需要，你可以復(fù)制粘貼使用。通過這種方式，你可以方便地實(shí)現(xiàn) Excel 表格數(shù)據(jù)的隨機(jī)排序功能。