EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图,比如生活开支......
帮忙做表格利用vba实现数据随机排列
来源:互联网
2023-02-20 18:58:54 353
今天跟大家分享一下如何利用vba实现Excel内数据随机排列,随机排序。
工具/原料
- Excel
方法/步骤
如下图是某次比赛参赛人员名单,现在我们想为这些人员的出场顺序随机排序。
选中人员姓名单元格区域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 = ar
End Sub
注意事项
- 如有疑问可以点击下方【我有疑问】,与我沟通交流!!
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!