Требуется найти сумму вырученную от продаж бакалейной продукции Первомайского района.

[Посетитель]

Помогите пожалуйста упростить код ВБА, долго решает.
Требуется найти сумму вырученную от продаж бакалейной продукции Первомайского района.

Sub dddddb()
a = 0
v = 0
Sum = 0
For i = 1 To 2274
For j = 1 To 66
For k = 1 To 17
If Worksheets(3).Cells(k, 2) = "Первомайский" And Worksheets(1).Cells(i, 3) = Worksheets(3).Cells(k, 1) And Worksheets(1).Cells(i, 6) = "Продажа" Then
a = Worksheets(1).Cells(i, 4)
If Worksheets(2).Cells(j, 1) = a And Worksheets(2).Cells(j, 2) = "Бакалея" Then
v = Worksheets(1).Cells(i, 5) * Worksheets(1).Cells(i, 7)

End If
End If

Sum = Sum + v
v = 0
Next k
Next j
Next i

MsgBox "Сумма, вырученная от продаж бакалейной продукции магазинами Первомайского района = " & Sum
End Sub

[Администратор]

Это задание из института или реальная задача?
Просто для института нужно делать по правилам, которым вас учили.

[Посетитель]

Задача из университета. Правил никаких нет, ВБА дано было на самообучение, даже подсмотреть некуда. Методички тоже нет(

[Администратор]

Опишите задание словесно без использования кода.

[Посетитель]

описать решение или что надо найти? Не совсем понял Вас.

[Администратор]

Словесное описание задание, без использования кода.
Например, задача такая, нужно сделать то то и то то.

[Посетитель]

задача найти выручку от продажи бакалейной продукции магазинами Первомайского
района. Нужно найти магазины первомайского района, затем посмотреть артикулы бакалейной продукции, которая продается в них и затем посчитать сколько продалось умножив цену за шт на кол-во.

[Посетитель]

выручка это просто сумма на которую продали товар без вычитания затрат

[Посетитель]

правильный ответ : 1429921
Мой код верно решает, но как ускорить не знаю

[Администратор]

Сколько у вас макрос работает по времени?

[Посетитель]

35 сек