Как раз тот вариант, когда ознакомление с данными помогает понять проблему.
Для работы функции LOOKUP (ПРОСМОТР)
требуется, чтобы диапазон поиска был отсортирован по убыванию.
Если сортировка столбца А на листе Список А невозможа, применяйте другие функции с поиском точного совпадения (ВПР
, ИНДЕКС/ПОИСКПОЗ
)
Debug.Print Application.VLookup(Sheets("Результат").Cells(2, 1).Value, Sheets("Список А").Range("A2:B4200"), 2, 0)
With Application.WorksheetFunction
Debug.Print .Index(Sheets("Список А").Range("B2:B4200"), .Match(Sheets("Результат").Cells(2, 1).Value, Sheets("Список А").Range("A2:A4200"), 0))
End With
Функции листа работают быстрее кода VBA
, но если применяются непосредственно в Excel
. Вызов же функций листа из VBA
- процесс сравнительно медленный, поэтому результат правильнее получать собственными средствами языка
Sub TestLookUp() Debug.Print Application.WorksheetFunction.Lookup(Sheets("Ðåçóëüòàò").Cells(2, 1).Value, Sheets("Ñïèñîê À").Range("A2:B4200")) End Sub
Исправил код, но не помогло. Ошибка та же самая