Выпадающий список Excel с поиском ВО ВСЕХ СТРОКАХ (способ №2)

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Sheets(2).Cells(2, 10) = Sheets(1).Range(Target.Address).Value End If End Sub Также можно скачать файл с примером по ссылке: Выпадающий список с поиском во всех строках в любой ячейке таблицы с использованием VBA