Вытащить из словаря номер строки

[strannick]

Добрый день, уважаемые форумчане!

Есть такая задача: есть большой массив, строк эдак за 300 тысяч, есть значение (номер товара в примере) и варианты его написания. Искать в массиве и там определить номер строки на листе ну очень долго, потому как это значение берется из другой процедуры, в которой массив тоже очень большой и каждый элемент этого массива и есть то значение, которое проверяется в массивом вариантов. Решил использовать словарь для поиска, написал такой код:

Set sh2 = Sheets("Товары")

    CurrentRegionAddress = sh2.Cells(1, 1).CurrentRegion.Address
    LastRow = sh2.Cells(1, 1).CurrentRegion.Rows.Count
    LastColumn = sh2.Cells(1, 1).CurrentRegion.Columns.Count
    y = 2
    For i = 2 To LastColumn
        Set oDict = CreateObject("scripting.dictionary")
        a = sh2.Range(Cells(2, i), Cells(LastRow, i))
        For ii = 1 To UBound(a)
            oDict.Item(a(ii, 1)) = a(ii, 1)
        Next
        'тут проверка на наличие
        If oDict.Exists(y) Then 'и вот здесь получить номер строки
        
    Next

В примере специально ищу значение y=2, которое в массиве только в одном месте, строка 3. Вроде понимаю, что номер строки в данном случае будет номер записи в словаре +1, а вот как это прописать - не соображу.
Прошу помощи и заранее спасибо!

[Aleksandr H.]

А чем классичесний .FIND на листе не подходит?

[strannick]

FIND дольше ищет

[Hugo121]

Номер записи в словаре не гарантируется!
Заводите другой словарь, куда кладите ключ с номером. Или в существующем сохраняйте к одному ключу массив значений.

[strannick]

О, привет старожилам! Давно не слышались) А как? Что-то типа:

oDict.Item("Key " & CStr(ii)) = a(ii, 1)

И как потом вытащить номер кейса?
Кстати, а зачем массив значений, если словарь создается в цикле по каждому столбцу?
И почему не гарантируется? Это на случай, если такое же значение еще где-то будет?

[Hugo121]

Нет, не так.
Можно так:

oDict.Item(a(ii, 1)) = a(ii, 1) & "|" & ii

Затем извлекать из split(oDict.Item(a(ii, 1)),"|")

[strannick]

Ага, понял) Щас попробую...

[Hugo121]

Ещё вариант - сохранять только индекс массива a, когда нужно значение - брать его по этому индексу, так и быстрее будет. Но нужно будет созранять в памяти массив с данными.

[strannick]

Так, чего-то наверное не так. Наполнили словарь в цикле по массиву а:

oDict.Item(a(ii, i)) = a(ii, i) & "|" & ii

Потом берем значение игрека (в примере y=2), а в реальности это значение из другого массива, и проверяем есть ли оно в словаре:

If oDict.Exists(y) Then

и вот тут не поняточка чего писать если игрек в словаре есть.

Сообщение от Hugo121

Ещё вариант - сохранять только индекс массива a, когда нужно значение - брать его по этому индексу, так и быстрее будет. Но нужно будет созранять в памяти массив с данными.

С этим проблем нет, и массив и словарь убиваются после того, как прошла проверка. Но мы ж проверяем наличие не a(ii, i), а игрека.

[Hugo121]

oDict.Item(a(ii, i)) =  ii
...
If oDict.Exists(y) Then msgbox a(oDict.Item(y),1)