Здравствуйте. Просьба дать совет начинающему, тк запутался.
Исходные данные:
В столбце "С" имеются суммы (количество может быть и 10 и 100 и вообще любое количество строк со значениями как положительными, так и отрицательными.
В столбце "D" так же имеются суммы по аналогии с колонкой "C".
В столбце "Е" вычисляется процентное соотношение каждой строки из столбца "D" к общей сумме столбца "D" (сделал через формулу).
Что необходимо реализовать:
При нажатии кнопки каждая строка из столбца "С" последовательно умножалась на каждую строку из столбца "Е" и это значение прописывалось построчно в столбец "F". Т.е., например, 2158124,395 (С,2) умножалось на 0,269604845 (Е,2) и значение выводилось в ячейку (F,2). Потом (С,2) * (Е,3) и значение прописывалось в ячейку (F,3). После того как значения в колонке "Е" закончились, бралась следующая цифра из колонки "С" -2671900,191 (С,3) и так же последовательно перемножалась построчно с ячейками колонки "Е" с записью к уже заполненным значениям после перемножения первого шага. По итогу в столбце "F" (с данными которые на скриншоте) должно быть заполнено 104 строки.
Данную процедуру хочу сделать через макрос.
Думал сделать следующее. Определить количество заполненных ячеек в столбце "D", далее через цикл
For i=1 to 8 (т.к. уже определили, что заполненных ячеек 8)
и далее через цикл while. Но вот тут что то не получается, либо что то не так делаю, поэтому и прошу Вашего совета.
Мой гавнокод:
Private Sub CommandButton1_Click()
Dim a, b, c, d As Long
a = WorksheetFunction.CountA(Columns("D")) - 1
Cells(2, 7) = a
b = 1
For c = 1 To x
Do While Cells(b + 1, 5).Value = ""
Cells(b + 1, 6) = Cells(2, 6) * Cells(b + 1, 6)
Loop
Next c
End Sub
Заранее спасибо.
