Создание отчета с помощью словаря

[andreysuperman42]

Добрый день.
Создаю отчет по разным товарам с разными ценами. Надо вычислить остаток товаров и разнести остаток в столбец. Создал отчет с помощью массива на VBA, но скорость не устраивает, так как идет обращение к ячейкам EXCEL.
Может кто подскажет, как сделать обработку без обращения к ячейкам EXCEL, чтобы потом выгрузить в виде массива на лист?

[IgorGO]

Sub CheckStokSum()
  Dim a, b, c, d, k, r&, tm
  tm = Timer
  Set d = CreateObject("Scripting.Dictionary"): a = [a1].CurrentRegion
  For r = 2 To UBound(a)
    If d.Exists(a(r, 4)) Then b = d(a(r, 4)) Else ReDim b(0 To 2)
    If a(r, 7) = "ÑêëÎáù" Then b(0) = r: b(1) = a(r, 5) Else b(2) = b(2) + a(r, 5)
    d(a(r, 4)) = b
  Next
  k = d.Keys: ReDim c(1 To UBound(a), 1 To 1): c(1, 1) = a(1, 8)
  For r = 0 To UBound(k)
    b = d(k(r))
    If b(0) > 0 Then
      c(b(0), 1) = b(1) - b(2): If c(b(0), 1) = 0 Then c(b(0), 1) = "Ok"
    End If
  Next
  Cells(1, 10).Resize(UBound(c), 1) = c: MsgBox Timer - tm & " ctr"
End Sub

[andreysuperman42]

До конца в алгоритме не разобрался, но пока видны 2 ошибки.

[IgorGO]

да, в данных ошибка Товар 2 на общем складе 2 раза один раз 10, второй 4

[andreysuperman42]

Наименования товаров могут повторятся.
Первым пунктом было:
1. Ищем совпадения по товару и цене

Если товар и цена совпадают, могут даты приходов отличатся.
Перед созданием отчета производится сортировка сначала по дате, потом по цене, потом по наименованию.

[IgorGO]

значит я не понял вашего первого пункта (и все еще не понимаю) и мне от этого ни холодно, ни жарко
а у вас решения как не было так и нет (потому что облом обьяснить нюансы задачи)

[andreysuperman42]

У вас в коде наименования товаров являются ключами.
Было бы логичным сделать ключом товар и цену, тогда бы искало совпадения товара вместе с ценой.

[IgorGO]

для меня это очередная абстракная задача, которую я как понял так и решил
для вас возможно задача вполне реальная, поэтому вам предстоит или обьяснить кому-то коротко и понятно как решать эту задачу или ничего ни кому не обьяснять, а решать все самостоятельно
с каждым постом, который никак не приближает меня к пониманию задачи эта задача становится для меня все менее и менее интересной (на самом деле она мне уже не интересна)
удачи!

[andreysuperman42]

Ок, спасибо. Дальше буду сам разбираться.