Список проголосовавших за комментарий "anatolyutkin, взгляну обязательно. <br/> <br/> Про рэндомы — главное что ты в курсе и что это — сознательное допущение, а не неведение. Но! Я не случайно рекомендовал в хелп заглягуть.<br/> <br/> The Rnd function returns a value less than 1 but greater than or _equal_to_zero_!!! <br/> Как тебе? Log(0), а?<br/> <br/> Идем далее. Не забываем, что я докапываюсь по канону :) <br/> <br/> Все исходные — синглы, но расчеты ты ведешь, базируясь на значениях ранее расчитанных ячеек. А в них хранятся — даблы. Ты аостоянно то пишешь на лист, то читаешь с него. Медленная и некорректная операция с т.з. что задействован механизм Экселя — расчеты на листе, который может еще и измениться.<br/> <br/> Вот. Загрубляется значение Cells(i, 2):<br/> s = s * (1 + share * Cells(i, 2))<br/> If s < 0 Then s = 0<br/> Cells(i, 3) = s<br/> <br/> Опять же — вероятность коллизий. Поэтому — делаем дополнительные переменные для каждого этапа вычисления и потом разом сбрасываем их на лист. <br/> <br/> Я шары по очереди выкатываю, чтобы не в куче, а постепенно. Я потом выложу окончательный код, как я его вижу."