如何在excel中从1-50中随机抽取10个不重复的值，按升序返回到10单元格中？

子abc()

对于i = 1至10

Cells(i，" A") = Int(Rnd() * 50) + 1

如果我& gt那么1

对于j = 1至i - 1

如果单元格(I，“A”)=单元格(j，“A”)，则

i = i - 1

为...退出

如果…就会结束

下一个j

对于j = 1至i - 1

If单元格(I，“A”)& lt；细胞(j，“A”)然后

b =细胞(I，“A”)

单元格(I，" A") =单元格(j，" A ")

单元格(j，“A”)= b

如果…就会结束

下一个j

如果…就会结束

接下来我

末端接头