[okshef]

Geliosvamp, я не вникал в вашу проблему, но по вашим словам

метод Find ищет на листе только первое упоминание об искомом элементе, а элементов с одним инвентарным номером на листе может быть несколько. »

предлагаю использовать метод FindNext. Вот пример из справки Excel

Код:

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Попробуйте "прикрутить" его к своей задаче