У меня есть следующий код
Sub Sim()
i = 0
Do Until i = Range("NumberLoops").Value
Worksheets("Sheet1").Range("Input_1").Copy
Worksheets("Sheet1").Range("Output_1").PasteSpecial xlPasteValues
i = i + 1
Loop
End Sub
, где Input_1 является именованным диапазоном $Q$1:$U$20
, а NumberLoops имеет значение 1000
В каждом моделировании значение 1 будет появляться один раз в каждом столбце Q - U, остальные будут иметь 0. Поэтому для каждого моделирования число 1 будет появляться пять раз, а 0 - девяносто пять раз.
То, что я пытаюсь сделать, это вернуть общее количество раз, когда они появляются из Range("NumberLoops") симов, чтобы они появлялись в Output_1.
На данный момент мой код только считает проценты от 1 симуляции
введите описание изображения здесь
Пожалуйста, смотрите изображение. Input_1 = $ Q $ 1: $ U $ 20 содержит формулы. В каждом моделировании значение 1 будет отображаться один раз в столбце от Q до U, остальные будут иметь значение 0.
Я хотел бы, чтобы Output_1 показывал, как часто они появляются в моделировании в процентах, как показано на 2-м изображении
введите описание изображения здесь