1、如下图是某次比赛参赛人员名单，现在我们想为这些人员的出场顺序随机排序。
2、选中人员姓名单元格区域B2:B12。
3、同时按下Alt+F11
4、点击sheet1，然后在右侧区域录入vba代码
5、按下F5运行代码，就可以将表格数据重新排序。
6、如果运行一次之后觉得排序不合适，可以再一次运行代码即可再一次重新排列。
7、最后跟大家分享一下本文这里所使用的箪滹埘麽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