Как выполнить умножение массива?

[valerij]

Сообщение от IgorGO

Интересно, это как же все обработаются?
For iRow = 3 To 1533 Step 51
первый проход
iRow = 3 + 51*(1-1) = 3
2-й iRow = 3 + 51*(2 - 1) = 54
3-й iRow = 3 + 51*(3 - 1) = 105
...
31-й iRow = 3+51*(31-1) = 1533

32 прохода по циклу не будет. следующий iRow=1584 больше 1533 - это выход из цикла. Как могут обрабатываться строки за 1533 - не знаю.

извини... я выхожу из этого обсуждения.

Игорь, да все правильно, 32 проход, уже не нужен, надо было запустить модуль и все бы, ты, понял:

[E3] = 2.21                [I3] = 2.54  (2.21 * 1.15)
[E4] = 1.61                [I4] = 1.85  (1.61 * 1.15)
 ----------------------------------------------
[E40] = 2.20              [I40] = 2.53  (2.20 * 1.15)

потом, шаг 51 и  то же самое, но с:

[E54] = 2.21              [I54] = 2.54  (2.21 * 1.15)
[E55] = 1.61              [I55] = 1.85  (1.61 * 1.15)
 -----------------------------------------------
[E91] = 2.20              [I91] = 2.53  (2.20 * 1.15)

------------------------------------------------
------------------------------------------------

[E1533] = 2.21              [I1533] = 2.54  (2.21 * 1.15)
[E1534] = 1.61              [I1534] = 1.85  (1.61 * 1.15)
 -----------------------------------------------
[E1570] = 2.20              [I1570] = 2.53  (2.20 * 1.15)

For iRow = 3 To 1533 Step 51
.Cells(iRow, 5).Resize(38).Value = iPrices

Вот скрин удалить .rar