我是凑数王

今天客户让我算Category Credit Qual 的Breakdown。这几万条数据的，我怎么给他凑出来那个数。于是想到了之前一个凑数模板，在此基础上修改一下，就能用来抓住里面的各元素，再倒回去分析。特此贴一个裸版。

Public arr1

Sub AvgCalculator()

    
    'To assign column K to one dimensional array
    arr1 = WorksheetFunction.Transpose(Range(Sheet1.Cells(2, 9), Sheet1.Cells(48, 9)).Value)

    
    
    'Better to use a bubble sort here.
 
    



    Dim arr2(1 To 5, 1 To 1)

    Dim AvgSum1 As Double
    

    AvgSum1 = 0


    
    k = 1


    Do While (AvgSum1 <> 43.995)

    AvgSum1 = 0
    

    For i = 1 To 5
    
        bbb = Random(47, 1)
        
        For h = 1 To 5   'Remove duplicate numbers
        
            Do While bbb = arr2(h, 1)
            
                bbb = Random(47, 1)
                
            Loop
        Next h
        
        
        arr2(i, 1) = bbb


        AvgSum1 = AvgSum1 + arr1(bbb)
     

     Next i
    
    
    AvgSum1 = Round(AvgSum1 / 5, 3)
 


    Loop

    MsgBox AvgSum1
    MsgBox "You got it   ... "
    MsgBox arr2(1, 1)
    MsgBox arr2(2, 1)
    MsgBox arr2(3, 1)
    MsgBox arr2(4, 1)
    MsgBox arr2(5, 1)


End Sub

Function Random(UpB, LoB)

    Random = Int((UpB - LoB + 1) * Rnd + LoB)
    
End Function