[已解决]如何产生满足要求的随机数

grf1973

何意？请上传附件说明要求。

akb48

grf1973 发表于 2014-5-6 08:43
何意？请上传附件说明要求。

请见附件
dd.rar (91.33 KB, 下载次数: 4)

2014-5-6 10:38 上传

点击文件名下载附件

grf1973

1. Private Sub CommandButton1_Click()
   
2.     Dim brr(1 To 4, 1 To 3)
   
3.     Dim rng As Integer
   
4.     With Sheets("参数")
   
5.         arr = .Range(.[a3], .[a3].End(xlToRight))       '所有数字
   
6.         ReDim crr(1 To UBound(arr, 2))        '去掉空单元格
   
7.         For i = 1 To UBound(arr, 2)
   
8.             If Len(arr(1, i)) > 0 Then      '去掉空单元格
   
9.                 n = n + 1
   
10.                 crr(n) = arr(1, i)
    
11.             End If
    
12.         Next
    
13.         
    
14.         For k = 1 To 4
    
15.             drr = crr
    
16.             p = n
    
17.             q = IIf(k <= 2, 2, 3)
    
18.             For i = 1 To q
    
19.                 rng = Int((p * Rnd) + 1)
    
20.                 brr(k, i) = drr(rng)
    
21.                 drr(rng) = drr(p)
    
22.                 p = p - 1
    
23.             Next
    
24.         Next
    
25.         .Range("b17").Resize(4, 3) = brr
    
26.     End With
    
27. End Sub
    
28. 
    

复制代码