Excel表格插入、删除和修改批注的方法,Excel表格插入、删除和修改批注的方法......
表格代打如何实现数据随机排序
来源:互联网
2023-02-20 23:14:17 471
今天跟大家分享一下Excel如何利用vba实现数据随机排布
工具/原料
- Excel
方法/步骤
如下图是某班级分组表,很多同学对此表不满意,因此我们想要利用vba对表格数据实现一次随机排序分组。
选中姓名数据单元格区域
同时按下Alt F11,然后点击sheet1.
在如下图区域录入vba代码
点击【运行】,然后选择【运行子程序/用户窗口】即可完成
完成效果如下图,最后跟大家分享一下本文这里所使用的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
注意事项
- 如果对随机排布结果不满意,可以再一次运行程序。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!
上一篇:WPS如何通过表格完成排版 下一篇:怎样给WPS文字设置点状底纹