批量生成任意随机数

Laughingsun889

老师们，早！附件中。我想把B的数按第2行D2起的列数批量生成的随机数。效果如sheet2.我搜了一个代码，老调整不过来，请老师们援手！谢谢！

Laughingsun889

问题已解决，谢谢各位查看的老师！

jaxxcyh

1. Sub test1()
   
2. Dim n, r
   
3. 
   
4. n = Cells(2, Columns.Count).End(xlToLeft).Column
   
5. r = Cells(Rows.Count, 1).End(xlUp).Row
   
6. arr = [a2].Resize(r - 1, 2)
   
7. brr = [d2].Resize(r - 1, n - 3)
   
8. For j = 2 To UBound(arr)
   
9.    
   
10.        sm = arr(j, 2)
    
11.        For i = 1 To UBound(brr, 2) - 1
    
12.             x = Int(WorksheetFunction.RandBetween(0, sm) / 3)
    
13.             brr(j, i) = x
    
14.             sm = sm - x
    
15.        Next i
    
16.        brr(j, n - 3) = sm
    
17.    
    
18.     Next j
    
19.     [d2].Resize(r - 1, n - 3) = brr
    
20. End Sub
    

复制代码