Составление цикла в VBA Excle

[thefair]

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

К чему вообще макросы? ВПР Вам в помощь.
(D2-ВПР(Критерий;Таблица;Столбец;0))*C2

Спасибо большое за подсказку, если бы мне не подсказали код макроса, то пользовался бы твоим методом Единственное, что мне не понятно, так это почему когда значение должно приобрести отрицательный знак, оно все равно остается положительным

Dim r As Single, i As Integer, k As Integer

i = 2
Do While Sheets("Лист1").Range("A" + CStr(i)) <> Empty
    k = 2
    Do While Sheets("Лист2").Range("a" + CStr(k)) <> Empty
       If Sheets("Лист1").Range("a" + CStr(i)) = Sheets("Лист2").Range("a" + CStr(k)) Then
          Sheets("Лист1").Range("e" + CStr(i)) = (Sheets("Лист1").Range("d" + CStr(i)) - Sheets("Лист2").Range("b" + CStr(k))) * Sheets("Лист1").Range("c" + CStr(i))
          Exit Do
       End If
       k = k + 1
    Loop
i = i + 1
Loop