帮忙做表格利用vba实现数据随机排列

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 = ar

End Sub