如下图是某次比赛参赛人员名单，现在我们想为这些人员的出场顺序随机排序。

选中人员姓名单元格区域B2:B12。

同时按下Alt+F11

点击sheet1，然后在右侧区域录入vba代码

按下F5运行代码，就可以将表格数据重新排序。

如果运行一次之后觉得排序不合适，可以再一次运行代码即可再一次重新排列。

最后跟大家分享一下本文这里所使用的vba代码，如有需要的朋友可以复制粘贴使用。

激活工作表事件激活工作表，写入除目录外所有表名作者：如需帮忙做表格，请百度方方格子------------------------------------------Sub 选区数据打乱顺序() Dim ar, i, ii Dim tmp, tr, tc If Selection.Areas.Count 1 Then Exit Sub If Selection.Cells.Count Columns.Count Then MsgBox 您选择的区域过大！ 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 = arEnd Sub

如有疑问可以点击下方【我有疑问】，与我沟通交流！！