用公式变通一下 假设这三个数 在 A列 那么在B列对应位置输入
B1 =rand()
C1 =INDEX(A$1:A$3,MATCH(SMALL(B$1:B$3,ROW(A1)),B$1:B$3,0)) 复制到C2
然后 每一按 F9 就能得到一组补充的两位数字……
Sub sjs()
Dim arr
arr = Array(1, 2, 3)
s = Int(Rnd() * UBound(arr) + 1)
Range("a1") = s
Do
s = Int(Rnd() * UBound(arr) + 1)
Loop Until s <> Range("a1")
Range("a2") = s
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024