накопление случаев истинного или 1 результата в отдельном столбце

Чтобы сделать это проще, давайте сначала скажем, что ваши данные хранятся следующим образом, прежде чем мы начнем, на вашем рабочем листе «ws»:

     A              | B                | C
1    Random Numbers | Calculated Value | Accumulated Value
2    0              | 1                | 
3    5              | 0                | 
4    8              | 1                | 
5    73             | 0                | 
6    2              | 0                | 

[...]

Предположим, мы хотим запустить этот процесс 10 000 раз, чтобы увидеть, какие строки получают самые высокие накопленные значения, представленные в виде суммы вычисленных значений на каждой из предыдущих итераций. Я бы предложил следующее решение VBA:

Sub AccumulateValues
    Dim MaxIterations As Long: MaxIterations = 10000        
    Dim curRow as Long, LastRow as Long, it as Long

    Application.Calculation = xlCalculationManual 'Required to set it to manual

    With ws
        LastRow = .Range("A" & .Rows.Count).End(xlUp).Row

        For it = 1 to MaxIterations

            'Force the Recalculation of Cells in columns A and B:
            Application.Calculate

            For curRow = 2 To LastRow                    
                'Sum the result of this iteration with the accumulated value 
                'until the previous iteration and stores it.
                ws.Cells(curRow, 3) = ws.Cells(curRow, 3) + ws.Cells(curRow, 2)    

            Next curRow
        Next it

    End With

End Sub