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

[strannick]

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

[Hugo121]

Да ладно
Как напишите - так и будет срабатывать. Можно написать так, что срабатываь будет всегда. А можно и наоборот... или так, как описали
Вообще результат работы макроса сохранения в словаре индекса массива ничем не отличается от макроса с сохранением в словаре значения массива, как было у Вас
Ну т.е. ключ+значение = ключ+индекс_массива_с_значениями по которому всегда можно взять это значение.

[RAN.]

Option Explicit
    Dim oDict As Object

Sub qq()
    Dim sh2 As Worksheet
    Dim ar
    Dim i&, j&
    Dim y
    
    If oDict Is Nothing Then
        Set oDict = CreateObject("scripting.dictionary")
        Set sh2 = Sheets("Товары")
        With sh2.Cells(1, 1).CurrentRegion
            With .Offset(, 1).Resize(, .Columns.Count - 1)
                ar = .Value
                For i = 1 To UBound(ar)
                    For j = 1 To UBound(ar, 2)
                        If oDict.exists(ar(i, j)) Then
                            oDict.Item(ar(i, j)) = oDict.Item(ar(i, j)) & "|" & i
                        Else
                            If Len(ar(i, j)) Then oDict.Item(ar(i, j)) = i
                        End If
                    Next
                Next
            End With
        End With
    End If
    y = 44
    If oDict.exists(y) Then
        MsgBox "Искомое содержится в строках " & Join(Split(oDict.Item(y), "|"), ", ")
    End If
End Sub