excel表格怎么排序10个为一组

1.求0

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.keysEnd Sub运行此宏即在A到J列生成不重复的10个0到24间的整数，运行一次生成一组，依次写到上一组数据的下一行。