Интерфейс WorksheetFuntion имеет раннее связывание: во время разработки вы получаете автозаполнение, всплывающие подсказки с параметрами и т. Д. Во время выполнения раннее связывание WorksheetFunction будет повышать фактические ошибки времени выполнения VBA в случае сбоя.
Таким образом, возвращаемое значение никогда не достигает IsError, потому что ошибка не , возвращается , а повышается .
Как Скотт упомянул , вы можете использовать взамен Application.VLookup - это с поздним ограничением, поэтому во время разработки вы не получите ни автозаполнения, ни всплывающих подсказок по параметрам; компилятор не поможет вам, если вы сделаете опечатку. Во время выполнения функции листа с поздней привязкой будут возвращать значения ошибок (фактическое значение Variant/Error), которые можно сравнить, например, с. CVErr(xlErrNA) или подается на IsError для оценки.
Not IsError(expression) вернет логическое значение, а не значение поиска - это может или не может быть тем, что вы намеревались.
Итак, замените Application.WorksheetFunction.VLookup на Application.VLookup, и ваш код должен работать ... кроме ...
и оба диапазона имеют значения, которые существуют
Если бы это было так, ранний предел WorksheetFunction.VLookup не вызвал бы ошибку (при условии, что все ваши параметры верны).
Наконец, поскольку вас интересует только то, существует ли значение или нет, рассмотрите возможность использования вместо него Application.Match (WorksheetFunction.Match) - он также возвращает значение ошибки #N/A, если искомое значение не найдено, но должен работать немного лучше.
«Невозможно получить свойство {имя функции} класса WorksheetFunction» также может означать, что ваши параметры в некотором роде неверны. Номера строк должны быть Long, а не Integer, и обратите внимание, что Range("R" & i) неявно ссылается на то, чем является ActiveSheet, так как он не квалифицирован с правильной ссылкой на объект Worksheet - возможно, активный лист не тот, который предполагает ваш код?