帮忙做表格利用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