作业帮 > 综合 > 作业

求0-24个数字随机排列为10个数字为一组数字排列的EXCEL宏

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/01 13:08:40
求0-24个数字随机排列为10个数字为一组数字排列的EXCEL宏
Sub aa()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Do
d(Int(Rnd() * 25)) = 0
Loop Until d.Count = 10
Range("A" & Range("A65536").End(xlUp).Row + 1).Resize(1, 10) = d.keys
End Sub
运行此宏即在A到J列生成不重复的10个0到24间的整数,运行一次生成一组,依次写到上一组数据的下一行
再问: 那可以根据几个连续的数字来查找所在的组吗,例如; 17 13 14 7 19 0 20 1 10 21 17 13 14 7 3 0 8 15 17 22 这个数字组生成后,我可以通过输入17.13.14或是17.13.14.7这几个连续的数字来查找所在的所有不同组吗?
再答: 以上代码是不是你要的?
再问: 上面我只是举例子,来说明除了自动生成随机数字组外,是否能通过输入几个连续数字的方式来查询数字组。再问下这种随机组,是否会重复出现/
再答: 不是你要的就不会了,不知道你还会再接下改变什么问题。
再问: 是我没有把问题说清楚吗,简而言之我是要数字随机排列,也要查找的功能,因为工作急需,请帮忙解答为谢
再答: 搞彩票呀?不会