Доброго дня.
В VBA не супер знаток поэтому прощу помощи))
Есть 2 книги (в примере листы Книга 1 и Книга 2)
Нужно по критериям Книги 1 суммировать значения из Книги 2
Проблема в том, что критерии в Книги 2 находятся в 3 столбцах.
Формула суммпроизв считает порядка 5 часов так как в Книге 2 под 500 000 сток.
На форуме нашел похожую тему с кодом, но не пойму как можно его пристроить к своей задаче
В VBA не супер знаток поэтому прощу помощи))
Есть 2 книги (в примере листы Книга 1 и Книга 2)
Нужно по критериям Книги 1 суммировать значения из Книги 2
Проблема в том, что критерии в Книги 2 находятся в 3 столбцах.
Формула суммпроизв считает порядка 5 часов так как в Книге 2 под 500 000 сток.
На форуме нашел похожую тему с кодом, но не пойму как можно его пристроить к своей задаче
| Код |
|---|
Sub Sum_Ifs() Dim iSum As Object
Dim Arr1(), Arr2(), i&
Arr1 = Worksheets(1).Range("A1").CurrentRegion.Value
Arr2 = Worksheets(2).Range("A1").CurrentRegion.Value
Set iSum = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr2)
iSum.Item(Arr2(i, 1)) = 0
Next i
For i = 2 To UBound(Arr1)
If iSum.exists(Arr1(i, 2)) Then
If Arr1(i, 3) Like "*Ðîá*" Then
iSum.Item(Arr1(i, 2)) = iSum.Item(Arr1(i, 2)) + Arr1(i, 4)
End If
End If
Next i
For i = 2 To UBound(Arr2)
Arr2(i, 2) = iSum.Item(Arr2(i, 1))
Next
Worksheets(2).Range("A1").CurrentRegion.Value = Arr2
End Sub |
Изменено: - 03.10.2022 10:03:44
