Question

怎么利用VBA把200个数字随机分三个一组,组与组之间的数字不能重复

怎么利用VBA把200个数字随机分三个数字一组,组与组之间的数字不能重复，

Answer 1

程序代码：

执行原理：

把A列的200个数复制到数组里面，数组中的第二列为随机数，然后按照第二列排序，最后一次输出。最后的调试语句在实际是不需要的，但是其结果越来越加深理解。

Answer 2

你删除后的格子会变空对吗？如果是的话代码如下 '随机按钮代码如下: ar = Range("a2:j2") '先将去掉除去后的数字组合 For i = 1 To 10 If Not ar(1, i) = "" Then af = af & ar(1, i) End If Next '取出5个随机数 ReDim cm(1 To 1, 1 To 5) For i = 1 To 5 ad = Mid(af, Application.RandBetween(1, Len(af)), 1) af = Replace(af, ad, "") cm(1, i) = ad Next Range("a1:e1") = cm

追问

比如A1列向下1-200个数字，怎么能随机显示出三个一组数字（应显示66组数），且数字之间不重复，显示在B1（1，5，8这里的数是随机的）、B2（7，10，26）。