а как вы представляете себе поиск уже занесенного значения, в некую структуру?
hashMap объясняют для java
в LS алгоритм неизвестен (мне), но смысл использования такой же - по ключу ищем значение
в вашем случае, ключ - наименование товара, значение - кол-во
при использовании - не нужно перебирать стр-ру руками, достаточно указать, в коде, ключ и получим значение
суммируем с текущим (из цикла) и заносим обратно в стр-ру
Код:
Dim sumMap List As Long
Dim arrNames() As String, arrValues() As Long, i As Long
'... предполагаем, что массивы заполнили и они одинаковые по размеру индекса
For i=0 to Ubound(arrNames)
if (Not IsElement(sumMap(arrNames(i))) Then
sumMap(arrNames(i))=0
End If
'вот это и есть автоматом (не нужно самому делать цикл)
sumMap(arrNames(i))=sumMap(arrNames(i))+arrValues(i)
Next
'далее возможен перебор результатов для вывода
'...
ForAll sum in sumMap
'выводим в консоль (или статусбар нотуса)
Print ListTag(sum) {:} sum
End ForAll
'...
Ссылка скрыта от гостей