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

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

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

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

步驟二：進入 VBA 編輯器

按下 "Alt F11" 快捷鍵，可以進入 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

```

步驟四：運行 VBA 代碼

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

效果展示

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

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